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News and Reviews 
by Mike Dunn, Co-Editor 

Because our mailing list keeps growing, | again had to change to 
another program. The Atari Disk drives, even in double density are just 
not large enough to hold all your names. As you all know, each database 
program uses its own format on the files, with various delimiters to 
separate the fields and records. In the past, l've needed to write a 
program to do this, but lacking the time, | took a different approch this 
time. | decided to use dBase || on my CP/M ATR 8000, so | could use 
double or quad density double sided drives. Instead of using a null modem 
to port across the files, | used the excellent program from the ATR users 
group, The Capital Pro-Micro User's Group (Robert Danson, 2102 Basset, 
Alexandria, VA 22308), called ATOC. You simply put your Atari disk in 
drive B, your CP/M disk in drive A, and copy disk to disk. Worked great. 
This program and many others are available from them. If you have an 
ATR 8000 with CP/M be sure to write them. Once the files were across, 
І converted them using WordStar copy and replace commands — not 
as easy as it sounds since it took many hours to figure out how to do 
it, but only a few minutes to do it. Now all is well — if any of you have 
the same problem, write me, and I'll tell you how to do it. 

Speaking of writing, we have many User Group Newsletters giving 
various ways to add memory to your 800, 800XL and 130XE computers. 
If there is enough interest, we could put together a special newsletter 
with a disk of software to make it run, for say $10. It will take a lot of 
work to do it, so please let me know if you want it. 

Last weekend, | spent a few hours with my good friend Pat 
Warnshuis from the Portland Atari Group. Pat was the original editor of 
the Portland Atari Newsletter, and we have known each other since the 
"early days” of Atari. Anyway, he and a friend are developing an excellent 
program, a Wonder Editor for the ST, for programing in C and assembly, 
which has many marvelous features, including an outline ability and a 
48 line display (on Monochrome). Before marketing it, he wants you to 
try it out, and let him know what you think. In addition, he wrote a 
memory test program which is especially useful if you have the new ROM 
or add memory to your ST. The disk can be obtained from Jim Bumpas 
for $10; ask for “Pat's” disk. 

For the 8-bit owners, Frank Pazel, the editor of the Jersey Atari 
Compter Group, has sent us the latest disk from his #1 programmers 
son. This double sided disk has useful Print shop utilities on one side, 
and on the back utilities which allow you to convert Print Shop files to 
Visualizer or MicroPanter. These disks are not full, but have AutoRun files 
on each side. $10 for the disk. 

Remember, all the ACE 8-bit disks are $10 for 2 sides now. 


Checkbook/ Budget 


Introduction: Non-profit organizations like churches have tax exempt 
status. Accounting is mainly a matter of keeping an accurate checkbook. 
Budgets are set up however so it is necessary to break payments into 
amounts designated for certain purposes. Income is also usually broken 
down in categories. This program was written to aid in keeping track 
of income and expenses in such situations and provide printouts of 
information when necessary. If you desire this much information on your 
household finances, you could easily set up the program for your personal 
use. 

Hardware: This program should run on any Atari in the 400/800, 
XL or XE series but because of its length will require 48K. It is set up 
for use with a single disk drive. It is possible (with slight changes) to 
use a cassette drive but this is inconvenient because of the time required 
to load the program. A printer is not necessary because all information 
is available on the screen, but for normal use printed reports seem 
necessary. 

Categories: Before using this program you must choose categories 
for income and expenses. Expenses have a category number associated 
with them. It is convenient to group similar items together (10's for 
salaries, 20's for buildings, 30's for supplies etc.). Once the expense 
categories are choosen, their names must be inserted in the program 
as data lines in lines 20000 - 20099. The last two digits of the line 
number are equivalent to the category number, (‘20030 DATA Off. 
Supply' means office supplies have the category number 30). The 
maximum number of letters, including blanks, in a category name is 11. 

Income is also broken up into categories representing the purpose 
for which certain amounts were given (Tithes, Missions etc.). In a 
personal account these could be different income sources: Husband's 
income, Wife's income, rebates, etc. There are no category numbers 
associated with income but the category names must be inserted 
consecutively as data lines in lines 20101 and following. The number 
of income categories is limited to seven because of a limited number 
of columns in the income summary. If you wish to use less than seven 
categories, change the variable NCAT in line 12012. 


Check Numbers: Check numbers can range from 0001 through 
9999. If you LIST the program you will find there are no line numbers 
in this range. The program creates data lines here using the associated 
check numbers. It then uses the 'LIST' command to save these lines and 
the 'ENTER' command to re-enter them. This makes the information easy 
to incorporate into other Basic programs. Deposit numbers can duplicate 
check numbers without problems. Deposit information is saved as data 
lines 10000 and greater. You will be asked to provide an associated check 
number with each deposit. This is the check number which contains the 
deposit entry in a normal check register. 

Although the program will give you the balance after any check or 
a balance summary for the entire month, you should always keep a 
separate balance by hand to double check that everything got entered 
into the program correctly. 

Reports: The program will print out any of four separate reports as 
well as a list of available categories. The reports are: Income Summary, 
Expense Summary, Catagory Totals and Balance Summary. 

The income summary lists income categories in columns with each 
deposit as a separate row. Totals of rows and columns are provided. 
Examining income on the screen is a little different. You will be given 
a list of categories and asked to select one. Only information and a total 
for that particular category will be given. 

The expenses summary is a list of each check including all pertinent 
information. If the check is to be applied to more than one category, the 
amount designated for each is given on a separate line. Output to the 
screen is similar but information is abbreviated because of space 
limitations. If you forget the numbers associated with various categories 
you can get a listing on the screen or printer. 

A summary of category totals lists each category and gives amounts 
and check numbers of expenditures applied to that category. Catagory 
totals are also given. It is a cross-reference between amounts spent and 
check numbers. The same information is available on screen but in a 
different format. You are asked for a category number. Information for 
that category only is listed on the screen. 

You can ask for the balance at any check number and be given the 
amount in the checking account before and after that check. You may 
continue with each check after that until the end of the month is reached. 
By starting with the first check of the month you can have a balance 
summary which is useful for checking against a balance done by hand. 

Running the program: If the program does not automatically start, 
type ‘RUN “D:CKBUDGET"” and hit RETURN. The program will ask you 
if you want to get information from disk or start from scratch with a 
clean slate. Іп either case, you will be asked to select a month. 
Information is kept on disk files by month having filenames 
'D:CHECKS.XXX'; where XXX stands for the first three letter of the 
month name. A new 'D:CHECKS.FEB' will overwrite an old one so 
separate years should be kept on separate disks. You can add checks, 
modify checks, delete checks and do all sorts of printing of information; 
But unless you specifically call for the operation ‘Write Month’ the 
information on disk will not be updated! This should be the last thing 
you do before you turn the machine off or choose a ‘New Month’ 
operation. A ‘New Month’ selection starts the program over again, first 
going through and erasing all data lines having to do with checks and 
deposits. 

Once you have selected a month, you will be asked to enter the 
beginning balance. If some information has already been entered for that 
month the beginning balance should already appear in parenthesis. In 
this case, just press ‘RETURN’ and the beginning balance will 
automatically be entered. This is normally the case on prompts for input. 
The value in parenthesis is the default response and is selected by 
pressing only ‘RETURN’. Another convention involves choice selection 
from menus. The choices available will be indicated by letters ,(or key 
names, like RETURN), appearing in inverse video. ‘RETURN’ alone in 
response to a choice selection usually returns you to the main menu. 

Main Menu: The main menu should appear after the inital balance 
has been entered. The following describe the various options: 

Add Checks: You will be prompted for various check information 
including the amount. You are then to divide the check up into amounts 
in various categories. The program will ask for a category number and 
then an amount, repeating this sequence until the total check amount 
is accounted for. The default response for amount is always the 
remainder, so hitting only ‘RETURN’ will enter that amount and end the 
process. | you enter an amount which will make the total too high, you 
will be told and made to repeat the category breakdown from the 
beginning. If you can't remember a category number, you can enter a 
zero for the null category. It can always be fixed up later. The null category 
has no name associated with it. 
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BUMPAS REVIEWS 
ZOOMRACKS 


ZOOMRACKS (16-bit — Quickview Systems, 146 Main Street, Los 
Altos, CA 94022, $80 list, but discounted to user groups until May 30 
for as low as $40 in quantities of 13 or more) is a novel type of data 
filer program. It makes use of a system never before seen on a computer 
as far as | know. This novelty is so smoothly executed, and so easy to 
use, | believe it is destined to become a milestone in personal computer 
history. It is useful enough to become a standard equivalent to Lotus 
1-2-3 in the industry. 

| don't believe I'll continue to use spreadsheets for a data manager 
any more. This program takes a concept from the factory floor, the time- 
card racks where employees store their time-cards near the time-card 
punch machine. Only here, each “card” can hold up to 250 lines of data. 
On a half-meg machine, each file can contain up to 9 racks, each 
containing over 400 cards. All racks сап be displayed on the screen at 
once, but you might find this too much. There is a 1Oth rack, but this 
rack is always the directory of the disk. The data displayed on the screen 
is compacted so that even with 3 to 5 racks on the screen, "Thursday" 
might appear as “Thr”. 

When you click the mouse on an item, you can "zoom" ир on it 
so it fills the screen with just one rack, or just one “Q” card in the rack 
("Q" for "quick саға”). Sorts are nearly instantaneous; as you enter a 
new record in any rack, it is automatically inserted in the sort order in 
the field you have selected. To resort is a simple click and two keystrokes 
away. 

This is the first really and truly “free-form” data filer program I've 
seen. There are almost no rules to its use. Menus are available for the 
user not familiar with the commands. And the commands can be 
executed directly, without using the menus at all. When you first begin, 
you can also toggle on a “help” function which uses the bottom 4 lines 
of the screen to display information about the menu choices. There is 
also an excellent 128-page manual, and a long disk tutorial. The manual's 
table of contents is so complete, you probably won't miss the lack of 
an index. 

l'm so excited about the imaginative concept of this program I’m 
afraid | can't fully communicate it. The screen doesn't just show you a 
title page and move you to a menu where you can “create” a database. 
The program starts up with a demo which places a screen full of racks 
and cards before you. There is a macro function in the program permitting 
you to use 2 keystrokes to enter repetitive data or commands. Or, you 
can create a custom application which automatically runs when you run 
the program. 

When a rack is displayed, only the top line of data on each card 
appears. You can quickly re-assign which line is the “top” line. You can 
quickly pull up cards which relate to some data in another rack in the 
file. You can't really make a mistake more costly than a couple of 
keystrokes. Almost anything you do, you can undo with one keystroke. 
You can add, split and join fields, and change field names (labels) without 
losing any data. You can even change the name of a rack within a file. 

The program can be used as a small word processor. The editing 
and formatting functions are very complete. You can produce mailing 
labels, you can create custom forms. You can use the mail merge function 
to print and address form letters. You have the option to save files in 
ASCII format which will permit the files to be used with other programs, 
or to transfer the data to other computers. The only addition to the power 
of the program | can imagine is to add some calculation function. Let's 
see now, how about a phone dialer to go with my list of addresses and 
phone numbers.... 

| highly recommend this program to anyone who needs to keep track 
of things — items, addresses, appointments, collections, things to do. 
You will think about ordering things in a totally different way than you've 
ever done before. You can be an anarchist, with very little external 
discipline to the way in which you handle your data and this program 
will bring order to your chaos. And the order will be created almost 
effortlessly. 

Until May 30, 1986, ZOOMRACKS can be purchased by user 
groups at a discount for as low as $40 each when the order includes 
13 or more copies. Single copies can be bought for $59 until March 31, 
or $69 until April 30. 
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ANTIETAM 

ANTIETAM (8-bit — SSI, $50) is a dream come true for me. When 
| was a board war-gamer, my favorite system was SPI's "Terrible Swift 
Sword”. This game system evolved through a number of successful and 
enjoyable cardboard games. Well, SSI has created a regimental-level Civil 
War simulation which contains all the elements which made those board 
games a success, and has added features not possible on cardboard. 

Play options include the computer playing either (or both) sides. A 
two-player option is available, too. You can select one of 5 levels of 
difficulty, and 3 levels of play (Advanced level adds more features which 
complicate command control, and use of hidden units). This program 
also offers the option of using two disk drives. This is great! It minimizes 
disk swapping. 

The cursor selects individual regiments and batteries. When 
selected, each unit has two “pages” of data. A "раде" here is a 4-line 
window at the bottom of the screen. Current numbers of effective men 
in the regiment are listed along with morale and other status indicators 
such as facing, formation (column or line, mounted/dismounted, 
limbered/unlimbered), fortification level, ammunition, etc. The screen 
display shows unit facing in one of 4 positions. Actual facing can be in 
any one of 8 directions. So you have to read the status pages to actually 
see if a unit is facing "north" or “south”. 

One really great feature of this game (and which bedevils cardboard 
play) is maintaining command control. An option permits one to show 
all the regiments in one division with screen high-lighting. The regiment 
containing the commanding officer flashes! So it's an easy matter to 
determine if one is in command control. And you can see if your 
commander is too close to the front lines (or maybe hanging back too 
far in the rear — coffee, anyone?). 

Infantry in line formation and dismounted cavalry are displayed as 
rectangles. Mounted cavalry and infantry in column are pairs of squares. 
Limbered artillery is a rectangle with a dot in the center. Unlimbered is 
a rectangular formation of 6 lines. Terrain includes hills, towns and roads, 
as well as woods, cornfields, rivers and streams. | was a little disoriented 
by the map at first, since the designers chose to put “South” at the top 
of the map. There is complete documentation, including Orders of Battle 
and a historical discussion. Also included is a laminated 4-color 8.5x11" 
conference map. 

The game scale makes each turn an hour in the actual battle. You 
will probably be able to play one turn an hour. Think of it as a "real-time" 
game, at least in terms of player fatigue. Combat is executed sequentially, 
unit-by-unit, with the defender in each phase having the advantage of 
first fire. Normal execution times for each operation is 2 or 3 seconds. 
You can set a delay counter at any point from 1 to 9. | find 1 is too short 
to read the screen display of the results of actions. 2 seems about right 
after | became accustomed to the display. The default of 3 is best for 
new players, or for a more time to read the results. 

This leads me to a serious problem l've experienced with the game 
in the solitaire mode (playing either the USA or С5А). l've not yet been 
able to play the game past Noon (game play begins with the 6.00 am 
turn). At this point, the program forgets it's using two disk drives and 
asks me to insert the other side of the disk. But more seriously, the delay 
in game operations increases by a factor of 10. Operations which 
formerly required only 2 or 3 seconds now require 20 to 30 seconds. 
This makes each turn require 2-3 hours to play. Obviously | only played 
one turn each game at this speed. І had to stop and start over. Even with 
normal play as intended, there are times you will have several minutes 
to do something away from the computer. Solitaire play requires letting 
the computer figure out it's moves for 4-6 minutes, even with the screen 
display disabled. 

Ordinarily | wouldn't review a game with this problem, as it doesn't 
seem ready for market in this condition. But SSI is acting so promptly 
with their concern over this problem, I'm satisfied they will correct the 
problem shortly (maybe by the time you read this). Perhaps it's my 
computer, since they did not discover this problem before release. If you 
have a similar problem, let SSI know about it and | am sure they will 


correct it. 
— Jim Bumpas 


ST ROMs 


The ST ROMs arrived today (Feb. 13). | put mine іп іп less than а 
half an hour. How about 341k text buffer space with ST Writer? A little 
insert for your 520 ST user manual is included which covers some 
questions about LOGO. An instruction sheet explains how to install the 
ROMs. A disk is also included which contains system files for boot-up, 
along with the latest versions of NEO.PRG, BASIC.PRG, BASIC.RSC, 
SLIDENEO.PRG, LOGO.PRG, and LOGO.RSC. The LOGO files seem to be 
the only ones with a different byte count than the files we already have. 

Programmers 
DataSoft (Marketing Project Manager, 19808 Nordhoff РІ., 
Chatsworth, CA 91311 818-886-5922) is advertizing for programmers 
to submit "original graphic adventure games, and action arcade-style 
games full of color and animation. We also want practical home- 
productivity programs with mass-market appeal." 


Once all necessary information is supplied you will be shown the 
information again in the form of a check and asked to confirm it. If you 
say 'yes' the information is correct, a data line will be entered containing 
that check's data. Any previous check of the same number will be 
replaced. Remember, the information has not been saved yet, only 
entered into the program. Once the data line is written you will be 
returned to the main menu and will have to select this option again to 
add another check. 

Revise Checks: Use this option to make corrections or to delete 
checks. Enter the number of the check you want. Check information will 
be shown and you will be asked if it is correct. If it is, answer 'Y' for 
yes or just 'RETURN'. Answer 'N' (no) to make corrections. Answer 'E' 
to erase the check. 

Deposits: Choose 'А' to add deposits made to the checking account. 
You will be asked for the total amount and then asked to specify how 
much to apply to each deposit category. The amount toward each 
category will be subtracted from the remaining amount until all is 
accounted for. 'R' will allow you to make corrections or Erase deposits 
previously entered and 'RETURN' will take you back to the main menu. 

Income Summary: Choose ‘I’ to get a listing of the deposits broken 
down into amounts in various deposit categories. The listing can be to 
either the screen or printer. Screen listing is by individual category or 
a listing of the totals of all deposits. Before you select the printer, you 
may want to advance the paper to the top of the next page. If you do 
this you should inform the program by pressing ‘ESC’. You can then press 
'P' for printer. 

Expenses Summary: 'E' will give a summary of all checks written 
for the month. You are again given the choice of screen, printer or 'ESC' 
to set the top of form. 

New Month: Use this option if you wish to clear out all information 
entered and start again. | have on occasion found some data unerased 
by the program. It will probably be wise to do income and expense 
summaries to make sure everything was erased. Use the option again 
if anything remains. 

Write Month: Be sure to use this option to save all information 
entered. Old information for the month will be overwritten. 

Catagories: Four selections of category listings are available using 
the 'C' key. Individual totals of either deposit or expense categories is 
available on screen by choosing (C)heck category or (D)eposit category. 
If you want a printout of all expenses by category choose the (P)rint 
Category Totals option. A list of the categories themselves can be printed 
or sent to screen with (L)ist of categories option. 

Balance Thru: You can use this option to find the balance before 
and after any check which has been entered. Values for the choosen 
check will be listed and you will be given a chance to continue (SPACE) 
or 'RETURN' to the main menu. The listing to screen can be toggled on 
and off with the SPACE key. 

Technical: The program makes use of the Atari's ability to read 
information from it's own screen. This allows it to modify itself by 
entering it's own data lines. Data is entered in a data line corresponding 
to the check number. The data itself is a string with information as 
follows: 

1-2, day; 3-22, payee; 23-30, amount; 31-48, memo; 49, number 
of subamounts; 50-51, 1st category; 52-59, 1st category amount; 
60-119, remaining category numbers and amounts. 

Deposit data is stored as data lines 10000 and following in steps 
of 10. The data is again a string as follows: 

1-2, day; 3-6, deposit number; 7-14, amount; 15-18, associated 
check #; 19-26, 1st category amount; 27-74, remaining category 
amounts. 

Another technique used frequently is the ability to restore to a 
particular data line. In certain cases it is necessary to remember what 
data line was being operated on. This information is contained in 
locations 183 and 184; the line number given by the quantity 
РЕЕК(183) + 256* PEEK(184). Location 182 holds the index of data іп a 
data line and is used to dig out the month in line 12270. Data is saved 
by 'LIST'ing the appropriate lines to disk. Data line O holds two numbers, 
the month £ and the beginning balance for the month. 

The maximum number of positions reserved for dollar amounts is 
eight. This limits any amount to a maximum of $99,999.99. 

— Stan Ockers 
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S Tuff 


The really hot ST rumors this month revolve around the "Magic Box.” 
An MS-DOS emulator for under $200! It may contain up to 8 slots for 
various boards. One board will have an 8088 with 512k RAM. The Magic 
Box plugs into the DMA port. The rumors claim the screen might be 
slower than on an MS-DOS machine, but the higher processor speed 
should make up for this, causing the programs to actually run faster than 
on an original MS-DOS machine. I'll believe it when | see it. 

The CP/M emulator is apparently ready. It should sell for about $30. 
It’s been appearing on various BBS around the country. But Sysops are 
removing it after discovering it’s proprietary. Unfortunately, many of them 
are out there now. It’s not enough to run CP/M though, is it? Don’t you 
also need to buy the CP/M operating system? I’ve heard the emulator 
program requests you to insert the CP/M disk. Do you really want to use 
WordStar on your ST? Here’s your chance. 

A new 14” monitor is in the works, with both composite and RGB 
output. Use it for both your ST and your 130 XE. 

FLASH : The March issue of BYTE magazine features the 1040 ST 
with front cover picture and articles. Check this one out as evidence of 
the resurgence of Atari on the micro market. 

Atari Corp. has been down-playing ST sales figures, making it 
difficult for us to determine how many are sold. But there are hints. A 
DataQuest report cited in a recent issue of InfoWorld says 100,000 STs 
were sold in the first 90 days on the market. If this 90 days covers 
August, September and October, then sales in 1985 should be well over 
200,000. In fact, since the ST was sold outside the States for several 
weeks before it appeared here, that "first 90 days" could well have begun 
earlier than August, 1985. 

In the first week of October, 1985 official word from Atari was that 
they were selling STs “at the rate" of 50,000 per month. So, November 
and December adds another 100,000 (at least) to the DataQuest figure. 
In fact, STs sales accelerated quite dramatically over the Christmas 
buying season, so probably many more than 100,000 were sold in those 
two months. The January, 1986 issue of "Feedback" (Adelaide, Australia 
ACE) reports 40,000 STs were sold in Germany alone during October, 
November and December, 1985. So that figure confirms these other 
estimates. 


VIP UPDATE 

VIP Professional (16-bit — VIP Technologies, 132 Aero Camino, 
Santa Barbara, CA 93117, $122 discounted) has now reached dealers 
with the third version since its release. The latest one arrived just as we 
went to press last issue. Some of the problems we had with the program 
are now corrected. The formula cells now calculate beyond the 80th 
character in the cell. Our calculations are no longer truncated. And the 
data buffer has been expanded to more than 40К. | am informed by a 
friend who has ROMs installed, that the data buffer on а ROM-based 
520 ST is less than 80k! 

l'm a little alarmed by this information. It make me wonder where 
our half-megabyte of memory went. If the OS is entirely (or mostly) on 
ROM, and the spreadsheet program only takes 277k on the disk, where 
is the other 200k RAM? The "Read Me First" pamphlet which comes 
in the VIP package suggests we'll have all but a small portion of the 512k 
available for applications when the ROMs are in. | want to know what 
happened? Here's how it's been explained to me. Start with 512k. VIP 
takes 277k program code and sets up two 32k graphics buffers for a 
total of 64k. This is why you can flip back and forth from the template 
to the graph screen so quickly. This leaves about 171k. The OS takes 
some space (more, depending upon how many desktop accessories you 
have), reducing you to between 80k and 108k for the spreadsheet. 

l've discovered a couple of other problems with the VIP program 
since last issue. The Graph function from within the program works very 
smoothly and quickly in most of its options. But | can't get it to "Use" 
a previously created graph file which І saved to disk. | get a file not found 
error. 

My data disk also contains 3 spreadsheet templates which | can 
no longer load in. When | try, the program says there's something wrong 
with my drive. | get the same message on either drive. When the error 
occurs | can't get out of it. Pressing Esc or Return gives me a system 
error 3, and then a system error 2. The only function which will work 
is the Help function. | have to reboot to get out of it. These data templates 
were created with a previous version of VIP. But other early templates 
on the same disk are loaded in with no problem. I'm perplexed. 


WARNING 


We received a warning from VIP today. They say their contract with 
Shanner, also doing business as “Gumball Express," is no longer legally 
permitted to sell the VIP Professional spreadsheet. If you buy from them, 
VIP says you'll be getting an old version, and VIP will not honor any 
warranty. To get your money back, you're asked to contact the California 
Attorney General's office in Sacramento, California. 
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КЕМЕР A Па зе 

48 FOR T-Y TO Y+36 STEP 2:7 "EHE"; 75 (Т, 
TH1):NEXT T:? "BE'";USCT, TH); POSITION 
4,4:? C$ 

45 FOR T-1 TO 4:POSITION Н(73,2:? НСТ 

,Т):МЕКТ T:POKE 764,255:POKE 559,24 

46 IF FL THEM RETURN 

ба TRAP 58:POKE 53774,64:POKE 16,64:IF 
PEEK(764) O 255 THEN 68 

54 IF РЕЕК(53279)-5 THEN POKE 53768,18 

8:60508 968:G05UB 588 

56 IF PEEK(532793-6 THEN POKE 51768,58 
:60508 968:605UB 1288 

57 IF РЕЕК(53279)-2 THEN POKE 51760,15 

8:6051B 368:G605UB 1888 

58 6070 58 

68 GET H2,K 

65 IF K-29 THEM GOSUB 288:Y-Y*1:G05UB 

i88 

78 IF K-28 THEN 60508 288:Y-Y-1:GÜ05lB 

188 

75 IF K-38 THEN 60508 28@:X=K-1:G0S5U8 

158 

88 IF K-31 THEN 60508 288:X-M*i1:GOSUB 

158 

85 IF (1047 AND K(58) OR K-45 OR К-42 
THEN GOSUB 988 

38 IF (64 AND K(123) OR K=34 THEN GO 

SUB 228 

32 IF K-58 THEN 60518 888 

35 POKE 764,255:POKE 782,64:G60T0 58 
188 IF 7748 THEM Y-48:FÜR Tzi TO 18:Р0 
KE 52751,158:МЕКТ Т:РОКЕ 51761,168:605 
HB 125:RETURN 

185 IF Ү<1 THEN Y=i:FOR Tzi TO 18:POKE 


JSMARTSHEET BY 
KEN SHIU 


53761,168:МЕКТ T:POKE 53761,168; GOSUIB 
i35:RETHRN 
118 CELLS-CHRS CASC CHS СК, X322 -128) : CELL $ 
CLEMCCELLS) +13 -5TRS CY) :POSITIQON 36,1:7 
EEEn CELLS: Vis¥ 
115 CP-(UC-1) X8* (128X (Y-1) ) 41: IF. 71228 
AND К-29 THEN Y1-28 
116 IF Ү1)-ҮМІН AND Y(-YMAK THEN Y1-28 
-i28- CY- CMIN- 1217 
117 IF Y4YMIN THEN Yi-i 
128 IF Y)YMAM THEN YMAH-YMAMti1: YMIN-YM 
INti1;POSITIOM 8,4:7 ‘Gg: POSITION 8,23; 
> "EIU US C(Y2-1, X2) ; OUTS CCP, CP 312 | 
125 IF Y(YMIN THEN YMIN-YMIN-1:YMAK-YM 
AX-1:POSITION 8,4:? {J : POSITION 8,4:? 
"ДЕ; US CYR2-1, Y¥2) ; OUTS CCP, CP +313; 
115 POSITION H(Mi32-3,Yi1t3:FOR T-CP ТО 
CPt7:C9 CT-CP1,T-CP*1) ZCHR$ CASC COLITS (T 
21334128) : NEXT Т 
148 ? C$;:POSITION 
-9$(T,T1:IF A$-"i" 


sil 
ғ 


8,1:T-15*X(Y-1) 4K: AS 
THEN ? “Label: "; INS 


(CP ,CP*7) 

144 IF AS-U2" THEN ? "Ualue:" ; INSCCP,C 
р+7) 

145 IF 45-" " THEN ? " 


146 IF й5-“3" THEN 
„СР+7) 

148 RETURN 

158 IF К)15 THEN K-15:F0R Tzi TO 18:Р0 

KE 55761,168:МЕКТ T:POKE 51761,168:6505 
UB 135:RETURN 

155 IF К<1 THEM X-1:Fü0R T-1 TO 18:POKE 
91/61,168:NEMT Т:РОКЕ 53761,1068: 60508 
135:ВЕТШЕНМ 

168 CELLS-CHRS (ASC CH$ СК, ХК) ) - 128) : CELL 5 
(LENCCELLS32 412 = STRS CY) :POSTTION 26,1:7 

EEEn CELLS: 17H 

165 CP-(H-1)*8t (128X (Y-11) +1 

167 IF КАУ-КМТМ AND KiC HMAK THEN Ki-x 
-(КМІН-13):60Т70 198 

178 IF Mi(MMIN THEN Xi-1:XMIN-HMIN-1:H 
мак-кмак-1 

171 IF Кі) КМАК THEN X1-4:HMAH-MMAMtI:N 
MIN-KMIN+1 

172 G&-8:F0R T-KMAM-3 TO KMAH: G-Gt1i:PO5 
ITION Н(63,3:7 HS(T,T):NEXT T:G-8 

173 G-8:TS- CLE4MIN- 12 X8t (128€ (YMTN- 12241 
;FOR Т-Т5 TO T5*2288 STEP 128:6-6G*1 
174 POSITION 4,G*3:? OUTS(T,T*312 : :МЕХ 
LT 

i98 POSITION HCH1}-3,V1itI:FOR T-CP TO 

CP+7: CS CT-CP*1, T-CP* 1) -CHRS (ASC COLTS CT 
77234128) :NEHT T 

192 ? С5;:РОЅІТІОМ 8,1:T-15X(Y-1) 4M: 85 

-9$(T,T):IF A$-"i" THEN 7 "Label:";INS 
CCP ,CP t7) 


? "Formula:": INStCP 


sH 
# 


5 


194 IF A2-'"2" THEN 7 "Ualue:"; INS ССР, 
РҒ?) 
195 IF A$-" " THEN ? " 
197 IF A$-"3" THEN ? “Formula:"; INS ССР 
,CPt7) 
198 RETURN 
288 POSITION HiE1)-I,Yit3:CP-(K-1) X84 ( 
128*(Y-121*1:? OUTSCCP,CP472 : t RETURN 
205 POSITION 8,1:? " 

RETURN 
218 POSITION 8,2:7 " 

H ЕТПЕН 

228 POSITION 8,1:? "Label":55$(15X(Y-1) 
tE,iSK(Y-1) И) 271; 128 CP- CK - 112 &8t (128 
#(ү-1) 7+1 
222 Со ЧИНИИ 0Пт CCP , CP $73 ELS: IN 
$tCP,CP*7)-CL5 
225 IF К-54 THEM Т--1:60Т0 225 
225 POSITION 8+7,2:7 CHR$(CO :0HTSCCP*T 
sCP+TI=CHRS (GO : CS (T1, T4212 ZCHRS CK £128) 


226 INS(ICP4T,CP*T)-CHRS CK) 

238 POSITION H(X412-Z,Y1t3:7? C$; 

255 GET H2,K:IF К-155 THEN GOSUB 218:R 
ETURN 

236 IF K)27 AND K<3Z THEM 60518 218:P0 
P :G0T0 65 

238 T-T*1:IF Т27 AND KO 126 THEN 295 
248 IF K-126 AND T-8 THEN T--1:C5-" MEN 
EBENEN 00175 CCP, СР+7) =" "i INSCCP 
CP t7) =" "160508 218:6070 238 
241 IF K-126 THEN T-T-1:IF T8 THEN T= 
8 

242 IF K-126 THEN OülUTSCCP*T,CP4T)-" 4: 
C$UT 1, THAJ BU INS CCP T, CPET) =" ": POS 
ITION 8+T,2:7 " '';T-T-1:G0T0 218 

245 IF (К<22 OR К2122) THEN 235 

258 6070 225 

268 POSITION 8,1:? “Global:florm fint pjo 
liar"; 

265 GET H2,K 

278 IF K-27 THEN 60508 285:RETIRN 

275 IF K-78 THEN 61=0:60508 285:RETURN 


288 IF K-73 THEN GL=1:G05U8 285:RETURN 
282 IF K-68 THEM 6022:60508 285:RETURN 


285 7 "D":50T0 265 

238 FOR T-1 TO 288:WNEXT T: RETURN 

295 50518 218:РОР :G-K:K-31:6051lIB. 288: 
К-К+1і:605068 158:K-G:POP :GOTO 65 

388 7 "рок Rassette"™: 

i85 GET H2,K 

318 IF K-27 THEN Gü5lB 285:POP :G0TO 5 
8 

315 IF K-67 THEN FIS-"D:'":6051B 285:RE 


TURN 

228 IF KO 58 THEM 2 "[j";:G0TO0 385 

321 POSITION 13,1:7 "Input Filename" 
322 БЕТ H2,K:IF K-32 THEN 348 

325 IF K(65 OR К298 THEN 2 "[?';:G0TO 3 
22 

327 T-1:60T0 335 

338 GET H2,K:IF K-126 THEN Т-і:й5-б19: 
POSITION 8,2:? A$:60T0 322 

331 IF K-155 THEN 338 

332 IF (K(48 OR K?98) OR (IOS58 AND К<6 
5) THEN ? '"L?';:GO0TO 338 

335 POSITION 8*(T-1),2:? CHRSCKI:ASTT, 
T)ZCHRS$(K):T-T*1:IF T)8 THEN. T-8 

357 GOTO 338 

338 FOR Tzi TO 1ЕН(й45):ІҒ 8%(Т,Т3- " 
THEN G-LEN(AS) : 45 (T) -""': Т=6 

339 NEXT T:FIS="D:": 45 CLEN (AS) t1) 27,55 
“SFIS CLENCFIS)413-AS:GOSUB 285:G6050B 2 
18:CLOSE Яі: RETURN 

i48 TRAP 2100:0РЕМ H1,6,8,"D:X.55'" : TRÀ 
P 598 

344 INPUT H1;DIS$:POKE 54286,192:IF LEN 
(0152517 THEN 298 

245 POSITION 8,2:? "ҒПЕ:";0151(3,10) 
346 БЕТ H2,K:IF K-155 THEM 45-015 (3,18 
J:60T0 338 

347 IF K-27 THEN 60508 218:POP :RETURN 


358 IF К-37 THEN 344 

355 6070 546 

398 POSITION 8,2:? "ДИО MORE SMARTSHEE 

T FILES":CLOSE H1:FO0R Т-і TO 388:NEXT 

T 

395 GOSUB 218:60508 285:TRAP 48898:РОР 
: RETURN 

488 POSITION 8,1:? "Load;";:605UB 388 

485 TRAP 2188:0PEN 1H1,4,128,FIS:TRAP 4 

28:POSITION 9,1:7 "Loading. ..";6$:T1-7 

418 A-ADR(CINS):L-4888:G050UB 578:0079-І 

N$ 

415 A[ADR(5$):L-600:605U8 S78:CLOSE На 

/16:POKE 54286,1922 

428 POKE 559,8:G05UB 285: TRAP 48888:60 

508 2828:FL-1:605UB I8;FL-8:POKE 559,8 


425 G-8:T5- CHMIN-1) #84 (128X CYMIN-1) 341 
;FOR T-TS TO Т547288 STEP 128:6-6*1 
458 POSITION 4,643:7 OUTS(CT,T*312 ; : NEM 
TT 

415 POSITION 4,4:FOR 1275 TO 1547:C507 
-T5*1,T-TS5*1)-CHR$ CAST (00712 CT, T224128) 
:NEXT T:? C5; :POKE 559,34: RETURN 

458 POSITION 8,1:? “Save:"; : 60506 388 
452 TRAP 2188:0PEN H1,8,128,FIS:POSITI 
ON 9,1:? “Mriting..."ja$:T=1i 

455 паре (ти) :L-4880:G05UB 578 


SMART CON'T 


458 A-0DR(CS$):1-688:605UB 578:CLÜSE HG 
Ғ16:РОКЕ 54286,1922 

458 GOSUB 285;TRAP 48888;:RETURN 

588 POSITION 8,1:7 "Menu; GL БЕРНА 
f 
585 
518 
512 
514 
516 
516 
528 
522 
524 
545 
558 
“; 
555 БЕТ H2,K 

568 IF K-89 THEM POKE 559,8:605UB 2888 
:POP :G0TO 38 

565 605068 205: ВЕТВИ 

578 G-16:CB-832tG6:POKE CB*2,T:HI-INT(A 
#236) :10=А-НІЖ256:РОКЕ CB*4,LO:POKE CB 
%5,НІ 

572 HI-INT(L/256):L0-L-256KHT:POKE CB* 
8,10:РОКЕ CB*9,HTI:I-HSR(CADR C'hhhaL Uf") 
,6) 

575 RETURN 

588 GOTO 428 

688 POSITION 8,1:? "Print: Lower Corne 
r?":POSITION 8,2:1–1:45-"" 

685 GET H2,K:IF K-27 THEN 60508 285:RE 
TURN 

687 IF К(55 OR К279 THEN ? "[';:60T0 6 
85 

510 ? СНЕ (К); :AS CT, T2 ZCHRS COO : TZT41 
615 GET H2,K:IF K(48 OR К)57 AND KO 12 
6 AND KO155 THEN ? "3"; : 6070 515 

528 IF T-2 AND K-48 THEN 2 "[j';:60T0 6 
15 

625 IF K-126 THEN POSITION 8,2:7 " ғ" 
:G0TO 668 

638 IF K-155 AND T)1 THEN 645 

635 IF T-4 THEN 2 "[j';:G0TO0 615 

648 GOTO 618 

645 IF УЙІ (45(232248 THEN 7 "[j':605UB 
218:G0T0 688 

658 DI$-45:6050B 218:POSITION 8,1:? "P 
rinter Codes? (Y/N)''; 

655 GET H2,K:IF K-78 THEN 785 

660 IF KO89 THEN ? "L?'::60T0 658 

662 TRAP 662:605HB 218:POSITION 8,1:? 
"Fnter Line Number =: POSITION 8,2: 
INPUT L 

665 IF (41 OR 1248 THEN 7 "[j':60T0 662 


GET #2,К 
ТЕ K-71 
IF K-76 
IF K-831 
IF К=69 
IF K-88 
IF K-27 


268 
488 
458 
558 
688 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 60508 285:RETURN 

IF K-72 THEN 588 

IF К-65 OR K-47 THEN 1588 

? "L'':GO0TO 585 

POSITION 8,1:? "Erase: Sure? (Y/N) 


667 AS-PRSGXI-2,LXI):POSITION 14,1:7 
"Printer Codes" 


6 





678 POSITION 8,2:7 "Line ";L;" 
1,1) у" а (2,2); "5"; 0$ CII: 
:1-1 

575 GET H2,K:IF К-155 THEN 698 
688 IF K-126 THEN 678 

682 IF T?3 THEN 2 "[':G0TO0 675 
685 ? "E";CHRSCO ; :A$ CT, ТУ СНЕ CO :TZT 
*t1:60T0 675 

598 PR$(LX3-2,LX3)-605:G05UB 218:POSITI 
ON 14,1:? "More Codes? CY/N)"'; 

692 GET H2,K:IF K-89 THEN 662 

695 IF KO78 THEN ? "[i'::6G0TO0 692 

788 TRAP 48888 

785 G-UAL(CDIS C222 :8$-DIS (1,1) :FOR Т-і 
TO 15:ІҒ ASCCHS CT, T))-128-65C (45) THEN 
L-TX8;:T-15 

718 NEXT Т:605068 210:60506 285 

728 TRAP 2188:0PEN #1,8,8,"P:":POSITIO 
N 8,1:7 "Press RETURN to print" 

725 GET H2,K:IF KO 155 THEN 605068 218: 
60508 285:RETURN 

738 Li-i:FüR T-1 TO GiAS=PRS CTHI-2, THI 
} 

735 FOR Z-1 TO 3:ІҒ A$(2,2)-" " THEN N 
EXT Z:G0TO 748 

736 ? #1i;AS(Z,Z35;:WEKT Z 

748 ? #1; ОЦТУ CL1,L) :L7L*128:L17114128: 
NEXT T:CLOSE Hi 

758 GOSUB 265:605U8 218:POKE 54286,1322 
: RETURN 

888 59(15X(Y-1) 4K, 15X(Y-1) *&K) -" 1" : Tz: 
CP= CH-1) 88+ (1280€ C(Y-12) * 11 POSITION 8,1: 
2 "им: - һе - 

885 POSITION 8,2:? "From Cell: 
:INPUT à$ 

818 IF LEN(A9J? 3 OR LEM(AS) 42 THEN ? " 

D";:60T0 885 

812 IF ASC(AS (1,1322 465. OR A5CCAS C1,1)) 

779 THEN ? '4[i";:GO0TO 885 

814 IF UALCAS (C222 41 OR UALCAS (277) 48 T 

НЕМ ? "[y';:60T0 885 

818 POSITION 13,1:7 45 

828 POSITION 8,2:? "To Cell 
:ТИРШТ DIS 

822 IF 1ЕН(015222 OR LEN(DISJIX2 THEN 2 
"у; :о0то0 828 

824 IF А5С(015(1,1))565 OR 850 (915 (1,1 

13279 THEN 2 "[j";:GOTO 828 

826 IF ӘЛІ (915 (223 1 OR VAL (215 (23) 748 
THEN 7 Ән» : 6070 828 

827 IF A$1,1) ODISCU1,1) AND 45623 ODI 

$(2) THEN POSITION 8,2:? "[Xelis must 

be linear!";605UB 238:G605UB 218:G60T0 8 

88 

828 POSITION 17,1:7 BIS 

838 FIS-":":6S (LEN (AS) t1) ZU :" : AS CLENCA 

$1 411 -DIS:FIS(LENCFIS) +1) 45 


chase 
444"; 


444"; 


441"; 


SMART CON'T 


815 IF LEN(FIS)48 THEM FISCLENCFIS)41) 1889 POSITION 164T,1:? AS:K-LEN(AS2-1: 


-ši LEJ 


848 OUTSCCP,CP*7)-FIS: INS (CP, CP*7)-FIS 


858 60518 218:G6051B 285:RETURN 
988 55(15X(Y-1) *4, 15X (Y-1) *K) -"U2" : 128: 
CP-(K-1)8* (128€ (Y- 1) ) £1: POSITION 8,1: 
2 "Ualue:';INSC(CP,CP* 22 :C5-" EE" 
382 6-0:6051B 218:INSCCP,CP*7)-CLS : QUIT 
$(QP,CP*7)-CLS:IF K-126 THEN Т--1:65070 
318 

385 POSITION 8+7,2:7 CHRSCOGO :CSCTt1,T* 
11-СНВ9(К:128) : INS CCP4T, CP+T) <CHRS CO : 

OUTS CCP*T, CP*T) CCHRS CK) 

318 POSITION H(K1)-Z,Y1*1:7 C$; 

920 GET H2,K:T-T*1:IF K-155 OR (1027 А 

ND К(22) THEN 60508 218:G0T0 948 

322 IF T?7 THEN ? "[P';:G0TO 928 

326 IF K-126 THEN 988 

328 IF (К)47 AND K(58) THEN 985 

318 IF К-46 AND 6-і THEN 925 

932 IF K-46 THEN G-i:G0TQ0 985 

925 ? “Ш”;:6070 928 

348 IF K-155 AND МОТ T THEM RETURN 

341 IF NOT T THEM POP :GOTO 65 

947 ТВАР 9355:4-UALCINSCCP,CP472) : IF GL 

-8 THEN A$-STRS(CA):G0TO 948 

343 IF 61-2 THEN 945 

944 A-INT(At8,5) :AS=STRS CA) :L-8-LEN (45 

):60T0 948 

945 IF A-INT(A) THEN A$-STR$ Cà) : 85 CLEN 

(4$)41)-",88":GOTO 948 

346 IF ІМТ(0%18)-й%18 THEN 45-5785 (4): 

ASCLEN CAS) 41) "8": 6070 948 

947 A-INT(188X4*8.5)/188:45-5TR$ Cà) 

948 L-8-LEN(CAS) : DITS CCP, CPELI CLS: OUI TS 

(CP*L,CP47)-65$ : INSCCP,CP*7) -0UTS CCP, CP 

+7):ТВАР 48888 

958 IF K-155 THEN RETURN 

352 РОР :GÜTO 65 

955 2 "D'::K-126:G0T0 988 

368 FOR L-1 TO 18:РОКЕ 53761,175:NEXT 

L:POKE 53761,168:РОКЕ 53760, 280:RETURN 


i888 T-8:CP-(K-1)8* (120* (Y-1)) * 1: Р051 
TION 8,1:? "FormMula:"; INSCCP,CPt71:6-8 
:026:221 

i884 POSITION 8,2:? "ist Мо, :[8611 ог [7 
umber";:GET H2,K:IF K-27 THEN 60518 21 
@:G0508 285 :RETURN 

i885 INSCCP,CPt7)-CLS:IF K-67 THEN 6-і 
:60508 1828:G0TO 1030 

1886 IF К<) 78 THEN 7 "[j';:60T0 1884 
i887 60506 1888:1-A:GOTO 1858 

i888 TRAP 1888:G05HUB 218:POSITIQON 8,2: 
7 "Enter Wo.:";: INPUT AS:IF LEN(CAS))4 
THEN ? "f';:60T0 1888 


à-UALtAa$):IF 6 OR Z THEM INS(CP*T,CP*T 

tK)-à$:T-T*K*1:RETIRN 

јаја IF 0-1 THEN A-AtL 

1811 IF 0-2 THEN йсі-й 

1812 IF 022 THEM A-AXL 

1812 IF 024 THEM A-L/A 

1814 IF 025 THEN A-INT((L4A) 49.53 

1815 INSI(CP,CP*71-CL S : INSCCP, CP £73 -5TR 
$(0):K-2155:6051B 342:605UB 218:55(15%( 
Ү-12%%,15%(Ү-1) +) 72" EF RETURN 

1828 60508 218:POSITION 8,2:7 "Enter С 
ell:"::INPUT AS:IF LEN(CAS) 52 OR LEN(CAS 
))3 THEN 1825 

1821 IF й5С(ій5(1,122565 OR A5CCaS C1,1) 
1288 THEN 1825 

1822 IF UAL(CAS(2)) «1 OR VAL Cà$ C2)3) 48 
THEN 1825 

1824 GOTO 1826 

1825 7 "41"; : 6070 1828 

1826 K-LEN (AS) -1: INSCCP*T, CP*T*K3-à5:P 
OSITION 1647,1:7 A$:T-T*K*1:RETURN 
1828 55$(15X(Y-1) 4K, 15X (7–1) +)!" 2" : 005 
HB Zi@:POSITION 8,2:7 “Operation:@ M 5 
HE 

1831 GET Н?,К:ІҒ K-43 THEN 0-1:45- 74: 
GOTO 1848 

18272 IF K-45 THEN n-2:48$-"-":G0T0 1848 


1823 IF K-4Z THEN 0-2:й85-"%":6070 1848 


1014 IF K-47 THEN 0-4:45-"/":6070 1848 


18:5 IF K-34 THEN 0-5:08$-'"^'":G0TO 1848 
1836 ? "Di";:G0TO 1831 

1848 Z-8:INSCCP*T,CP4*T)-AS9:POSITION 15 
#7,1:7 AS: TxITHLi: POSITION 8,2:? "2nd No 
S[Hell or [lumber''; 

1842 GET H2,K:IF K-67 THEN GOSUB 1828: 
GOTO 1858 

1844 IF K-78 THEN GOSUB 1888:G0T0 1050 


1845 7 "и; : 6070 1042 

1858 GOSUB 218:01T5(CP , CP*7) -INS (СР, CP 
+7) :RETURN 

1788 POSITION 8,1:7 " 
" 

1282 FOR T=1 TO 688:IF SS(T,T)-"I" THE 
М 60508 1718 

1285 NEXT Т:6070 428 

1218 CP-(T-1)X8*1:49-CL5:IF INSICP,CP) 
=": THEN 1488 


Calculating... 


1716 TRAP 48888:IF ASC(ASt1,131)64 AND 
456085 (1,113488 THEN 1228 

1218 али 602) : GOTO 12318 

1278 TRAP 1225:F=ASC (AS (1,133-—64: GUAL 
СА (23) :H- CF-1) BB+ Ci 28K (6–- 13) FL AVAL С 

INSCH,Ht7311:60T0 1228 

1225 TRAP 1276:A-YALCOUTS CH, Ht733 : GOTO 
1218 

1226 4-0 

1218 A$-CLS:09-INSICCPtZ,CP*73:1F 85068 
$(1,133264 AND АССА (1,17) £88. THEN 12 
34 

1212 L-VAL CAS) : 56070 1248 

1234 TRAP 1255: 22850 (A$ (1,133)-54: GYAL 
CAS 0233: HZ (F1) 8t (1789 (65-1132 +1: L 20864 
INS(H,Ht731):G0 T0 1248 

1215 TRAP i236:L-UAL(GOUTS (H, Ht 72) : 5070 
1248 
1226 
1748 
1242 
1244 
1246 
1247 
1248 


L-8 

TRAP 48888:IF 0-47 THEN я-а. 

IF 0245 THEN A=AtL 

IF 0245 THEN A-A-L 

IF 0247 THEN 22871. 

IF 0-94 THEN A-INT((CA^L) 8.5) 

ТЕ &L-8 THEN A$-5TR$tÀ) :G0TO 1278 


i258 IF бі-? THEN 1268 

1252 A-INTiAt8.5):05-35TRS A} | L-8-LEM EA 
5):0070 1278 

1268 IF A-INT(A) THEM A$-5TR$:A3:A5$ CLE 
N(A53413-". G8": GOTO 1278 

1262 IF INT(AX18)-üX18 THEN A$-5TR$ (A) 
:ASCOLEN CAS) £1) "8": 6070 1278 

1264 A-INT(ia88XótB. 53/188: A$-53TRS (43 
1278 L-8-LEN(AS2 : ОПТ CCP, CP4L3-CL 5: Oli T 
$tCCP*L,CP*7)-655 : RETURN 

i488 5HM-8:853-INS(CCPt 1, CP* 32: HZ: IF 45 
(3,232: THEN A$-INSUCPtI,CPE2) HŽ 
i482 А-А5С (45 C1, 123-64:L-UAL Cà$ 223) 

i484 AS-INSCCPT2TH,CPt73:F-A3C (62 C1, 17 
3-64: GUAL (85 C21) 

i485 IF A-F THEM ü-Aà-i:FüR 721 TO G:TR 

AP i416:H-0X8* (128*X (72-123 * 1: U-UAL CINS € 

H,Ht7313:G0T0 1428 

1418 IF i-G THEM ü-L:FOR 2-й-і TO F:TR 

AP 1416:H-7X8* (128X (0-122 41: UCUAL СІН C 

H,Ht73):G0TO0 1428 

1416 TRAP 1417:U-UAL (COHTS CH, Ht 733 : GOTO 
1428 

1417 9-8 

1428 SIIM-SIMTU:NEMT 7:й251М:605 В 1248 
: RETIIRN 

1588 ? 56:72 "MEE 





ARTSHEET HELP SCREE 





1212 FOR A=CP TO CP*3:L-ASCCOINS (8,822: ШЕГІ? :7 


IF L-42 OR 1-41 OR L-45 OR 1-47 OR 1-9 
4 THEM Z-à-CPti:ü-CPti;0-L;GUTO 1216 
1214 A$(A-CPt1,A-CPt1)-CHRO (L3 NEXT й 


7 


HORMAL CURSOR ARROW KEYS CON 
CURSOR {LONG BLACK HAR} 


1565 ? " 
TROL РНЕ 7" 


15 
2 


11998 REM X3GOGGOHOOOOOOHOOOHOOOOPHOBOOOE 


11991 REM * CHECKBOOK/BUDGET x 
11992 REM * 5, OCKERS 1/86 % 
11993 REM * KEEPS TRACK OF CHECKS % 


11994 REM X BROKEN DOWN INTO AS MANY X 
11995 REM % AS SEVEN CATEGORIES EACH * 


11996 НЕМ JEHOOOODHHBOOHOOHHUHOOHOOOOE 


11997 REM à; 
11999 REM ЗОВЕ 

жэкккөненек 
12888 DIM TEMPS (128) , PAYEES (28) , MEMOS C 
|. 48), MONTHS (9) , RESPS (28) , D$ (17) :95=" | 

| ": CKNBR-1:5TBAL-8B 

17018 РІН SUBANT (8), SUBLEG (8) , KEYS (1), 
SELS C1), CATS (22, DOLS (8) : OPEN. #1,4,8,"К 
su: pPOKE 16,64:POKE 53774,64 
12812 DIM DEPN(15) ,ASCK (15) , DAMT (15) ,5 
ШВФЕР(72:Ғ08 J-i TO 7:5üBDEP (77 C8: NEXT 
J: INCAT-7:PCNT-1 
12814 POKE 789,4:РОКЕ 718,18 
12188 REM ЖЕКЕ WIPE OUT OLD рата 
жаа 
12118 POKE 752,8:РОКЕ 712,116:RESTORE 
8:COUNT-B:POKE 82,2 
12128 ? "K'":? :7 
12158 GOSUB 16218:IF CKNBR)183393 THEN 
12188 
12148 ? CKNBR:IF COUNT(I2 THEM 12138 
17158 RESTORE CKNBR:COUNT-8:? :? :? "C 
QNT":? :2 “SEL ES 
POSITION 8,8:POKE 842,13:5Т0Р 
12168 POKE 842,12:G0T0 12128 
12188 ? :? :? "CONT":? :? Ы CLEANING 0 
eae POSITION 8,8:POKE 842, 
1i:5T0P 
12198 POKE 842,12:РОКЕ 752,1 
12288 REM xi33109000000€ GET SOME рата 3X 
ЗЕН 
12218 DFLG-8:POKE 712,54:? "А" :РОКЕ 82 
,AA:POSITION 12,5:? TCHECKBOOK/BUDGE Tm 


INITIALIZATION 


12212 ? :? “lead from storage'':? 2775 
tart from Ekratch" 

12228 GET fil, KEY: KEYS-CHRS (KEY) : IF KEY 
5$-"g" THEN PFLG-i:G0TO0 12248 

17728 IF KEYSQ "5" THEN 12218 

17249 RESTORE 17298:РОКЕ 712,258:7 "gn 
FOR Ј-1 TO 12:РЕйр MONTHS:? J;" 
MTHS:NENT J 


17758 MONTH-i1:? :? "Enter Month # ('";M 


CHECKBOOR/ BUDGET 


BY STAN OCKERS 


ONTH;") ''; 

12268 NB-2:605UB 16280:ІҒ RESPSO"" TH 

EN MONTH-MBR:IF MONTH<1 OR MONTHD12 TH 

EN 12248 

12278 RESTORE 12298:РОКЕ 182, МОМТН-і: 

FAD MONTHS:IF DFLG-@ THEN 12418 

17208 REM JJ9HGHOHOOOBOE DATA FROM STORAG 
Е Жекен 

12218 POKE 82,2: ТИЯР 12158:RESP$-"D CH 
ECK5.":RESPS (10) MONTHS (1, 32 :RESPS (2,2 
)-CHR$ (58) 

12128 ? "H's? :? "ENTER ";CHR$CI4);RES 
PS;CHRDQIJ:? :? :9 :7 "CONT":? :7 "И 

EGDING FROM STORAGE ш 

17227 POSITION 8,8:POKE 842,13: 5TOP 
172128 POKE 842,12:? "8“:ВЕ5ТОВЕ Ө: READ 
MONTH, STBAL: TRAP 48888 

17248 RESTORE 123138:POKE 182, MONTH-i:R 
EAR MONTHS:GOTO 12418 

12158 POKE 842,12:? "8“:? CAN'T FIND | 

DPA FOR Ісі TO 388:NEHT J: TRAP 48888 
:60T0 12288 

12398 DATA JANUARY, FEBRUARY, MARCH, APRI 
L, MAY, JUNE, JULY, AUGUST, SEPTEMBER, OCTOR 
ER, MOVEMBER, DECEMBER 

12488 REM МУКЕ START FRESH X 

22223251212 

17418 POKE 82,12:? “S":POSITION 12,8:7 
"Starting Balance":? "(";STBAL ;")'"; :N 
B-8:605UB 16388 

17417 IF RESPSO"" THEN STBAL-NBR 

12428 2 "H's? :7 "а рата '";MONTH;",";5 
TBÀL:? :7 :2 :? "CONT":POSITION 8,8:Р0 

KE 842,13; 5 ТОР 

17418 POKE 842,12:? "R'":POSITION 18,2: 

? INSPECTING CHECKS i 

17588 REM 33G086€ SET INIT VALUES ОҒ CK 

Hs 333000 

17518 LASTREU-i1:RESTORE 1:60506 16210: 

IF CKNBR(18888 THEN LASTREU-CKNBR 
12528 60588 16218:IF CKNBR(18888 THEN 

LASTADD-CKNBR:GOTO 12528 

17528 LASTADD-LASTADD*i:RESTORE 8:READ 
MONTH, STBAL:RESTORE 12298:РОКЕ 182,H0 

NTH-1:READ MONTHS 

12548 RESTORE 18888:DEPLN-10888:6050B 

15718:ІҒ СКИВЕ 11900 THEN DEPLN-CKNBR: 

PREU-UAL(CTEMPS (2,53) :LASTDEP-DREU 

12558 605086 16218:IF CKHNBRí11888 THEN 

DEPLN-CKNBR:LASTDEP-UAL СТЕМР5 (3,67) : 60 
TO 12558 

12568 DEPLN-DEPLHW*18:CKNBR-LASTREU:L A5 

TDEP-LASTDEP*1 

17578 REM КЕННЕН МЕНІ ЖҰ 


пр JODOUOHOOOOEE 


12588 POKE 712,54:7 “S":POKE 82,11:Р05 
ITION 11,2:? MONTHS;" Checks":? "ro 
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ey 12 "| аа Checks pu 

17598 ? D$:? "| [Jevise Checks |":7 D$: 

? "| [jeposits [9:7 p$:? "| Нпсоме 
Summary|":? 65:7 "| faxpenses Sun. |" 

12688 7 D$5:7? "| Пен Month J's? 5$: 

? "| Frite Month [9:7 p$:? "| (батедо 

ries |":7 р5:2 "| Balance Thru |" 

12618 7 '"L—— i 

12678 REM ЖИЕККЕ БЕТ CHOICE XX 

кекке 

17528 GET HI,KEY:SELS-CHRS(KEY):IF SEL 

$-"$" THEN CKWBR-LASTADD:GOSUB 13818:1 

ASTADD-CKNBR*1 

12648 IF SELS$-"I" THEN 60508 14918 

12645 IF 5615-Е" THEM POKE 712,182:60 

508 13418 

12658 IF SELS-"R" THEN POKE 712,86: СКИ 

BR-LASTREU:G05UB 16818:G050B 16818:605 

UB 13:148:LASTREU-CKNBR*1 

12678 IF SELS-'"N" THEN GOTO 12188 

12688 IF SELS$-"W" THEN POKE 712,258:60 

508 14818 

12698 IF 5EL$-"C" 

508 12918 

12788 IF SEL$-"B" 

12718 IF 5EL$-"Dp" 

508 14518 

177728 GOTO 12588 

12908 REM ЖӘНЕН CATEGORY CHOICES WEE 

HERE 

17918 ? "RK":POSITION 11,7:? “heck Cat 

egory":? :? "posit Category":? :? "A 

ist of Categories" 

12928 ? :? "Grint Category Totals':? : 

2 Ч ПЕ: GET #1, KEY: KEYS-CHRS (KEY) 

:IF KEYS$-"C" THEN 60508 13610: RETURN 

12958 IF KEY$-"D" THEN GOSUB 14818:RET 

URN 

12948 IF KEYS="L" THEN GOSUB 11902: ВЕТ 

URN 

12958 IF KEY$-"P" THEM 60508 13718;RET 

URN 

12958 IF KEY-155 THEN RETURN 

12978 GOTO 12918 

11808 REM XiGoGOHHOOHCEE ENTER CHECK INFO 
232122322: 

12818 POKE 712,198:РОКЕ 82,5:7 "A": POS 

ITION 5,8:88-4:? "Enter Check # (";CKN 

ВЕ: у ";:60501B 16208 

13812 IF RESP$O"" THEN CKNBR-NBR 

i3828 NB-2:? "Enter Pay (";DAY;") "3:6 

0508 15208:ІҒ RESPSQO"" THEM DAY-NBR 

iza22 IF BAY<i OR ВАТ) 51 THEN 11828 

12028 NB-28:? "Enter Payee (";PAYEE$;" 

Ў "::G05UB 1638B:IF RESPSO 

"и THEN 60508 11238:PAYEES-RE2P$ 

12848 NB-7:? "Enter Amount (";AMT;') " 


THEN POKE 712,134:60 


THEN 60508 14118 
THEN POKE 712,158:60 





;:605UB 16I88:IF RESPSQO''" THEN AMT-HB 
R 
12858 NB-18:7? "Enter Memo (";МЕМО5;")" 
АЕ у "S :505UB 16188:IF RESPSO"" 
THEN 6058 13238: MEMOS-=RESPS 
12868 MUMSUB-@: SUBTOT-@ 
13878 MUMSUB-NUMSHBti:? "Category (';5 
USLEG CHUMSUB) ;") ''; :NB-2:605UB 16288 
12088 IF RESPS$O"" THEN SUBLEG CNUMSUBJ 
-NBR 
13898 5ШВАНТ(МИМ5И В) CAMT-SHBTOT:? “Amo 
unt (";SHBAMT CNLUMSUB) : ") "; 
12188 NB-7:G05lB 16:88:IF RESPSQO"" TH 
ЕН SUBAMT CNUIMSUBJ NBER 
13118 SUBTOÜT-SUBTOTt5UBAMT CNIIMSUB3 : IF 
SUBTOT(AMT THEN 1:878 
13128 IF SUBTOT?AMT THEN 2 “TOO MICH! ! 
!I":FO0R J-1 TO SOB: NEXT J:60TO0 15860 
13125 6058 16718 
11118 REM ННННННННЕ CONFIRM IF CORRECT 
JJOOOGORRHEOGOE 
13148 ? "R'":POKE 82,4:POSITION 4,4:? " 
| ÁÁ— — — FOR у 
сі 10 9 
13142 2 "| 
І":НЕКТ Ji? 1 nes 
клања 02 
13144 POSITION 26,5:? ''H '";CKNBR:POSIT 
ION 22,6:7 "ЕСИ ";MONTH;"/'";DAY:POST 
TION 6,8:7 “CEPT ";PAYEES 
13146 POSITION 18,18:? TEMPS(23,18);" 
Dollars" :POSITION 6,12:? "ТВ "; MEMO 
5:РОКЕ 82,2 
13148 POKE 201,19: POSITION 2,16:FOR Jz 
i TO NUMSIUB:RESTORE 28888*5UBLEG (J): RE 
Ab RESPS:P05S-42*10XJ 
11158 7 RESPS;" "; TEMPS (P05, P0547) , : KE 
KT J 
13168 POSITION 7,21:? "CORRECT? виа 
газе ЛАЗА)": БЕТ Hi,KEY:KEYS-CHRS(KEY 
):IF KEYS="¥" THEN 13288 
13178 IF KEY-155 THEN RETURN 
13172 IF KEYS="E" THEN 60508 13318:RET 
URN 
13188 IF KEYS-"N" THEN 12818 
13182 GOTO 12168 
13198 REM 39BB8B080C ENTER CHECK 45 DATA 
LINE JHBGHOBOÓE 
15708 POKE 82,8:? "5":7 :? СКИВЕ;" рата 
":ТЕМР5:7 "CONT":POSITION 8,8:POKE 84 
2,13:5T0P 
13218 POKE 842,12:RETURN 
15178 REM ХХЕКЕККЕККЕКЕК CLEAN OUT COMMA 
5 жокк 
13238 FOR 1-1 TO LEN(RESPS):IF RESP$S(I 
,J31-"," THEN RESPS$CI,J)-" " 
13248 WEXT J: RETURN 


13208 REM КЕКЕКЕКЕМЕК DELETE A CHECK Ж 

FERRE 

13316 7 "ОПИСАНИ ТИСИ : GET 

Hi, KEY: KEYS-CHRS (KEY); ТЕ KEYS ОНУ" THE 

М RETURN 

15528 POKE 783,196:? "6":7 :7 CKNBR:? 

1717 "CONT";POSITION 0,0:РОКЕ 842,13: 

STOP 

15530 POKE 842,12 

13348 7 "KH" POSITION 16,18:7 CKNBR;" М 

WaT}: FOR J-1 TO 108:МЕКТ Ј:ВЕТШЕМ 

15408 REM 330000€ EXPENSES SUMMARY Жж 

XXX 

13418 RESTORE i: TOT-@:G05U8 16668 

12458 IF РҒІйб-і THEM LPRINT :LPRINT : 

LPRINT “EXPENSE SUMMARY FOR THE MONTH 

OF '";MONTHS 

15448 IF PFLAG-1 THEM LPRINT :LPRINT " 

CK # DATE MEMO PAYEE 
AMOUNT CATEGORY: LPRINT 


1:442 IF PFLAG-1 THEN РСМТ-РСМТ+4: 5050 
B 16618 
13458 POKE 82,2:7 "КСК Н DATE 
CATEGORY AMT":? :CüOUNT-a 
12468 60508 16218:ТҒ СКИВВ)9999 THEN Е 
0508 13586; RETURN 
13478 LSAVI-PEEK (183) :LOAVUZ-PEEK (1841 : 
GOSUB 17818:RESTORE 5HUBLEGCIJ*28888:RE 
ар RESPS 
12488 ? CKNBR;" ";MONTH;"/"; TEMPS (1,2) 
;" HI PAYEES G,142;" '; TEMPS G8,51);7 7 
; TEMPS (52,592 : TOT TÜT4 AMT 
13581 IF PFLAG-1 THEN 60518 12538 
12582 IF WUMSUB>i THEN FOR J-2 TO NUNS 
UB:GOSUB 13592: COIINT-COUNT*1:NEXT J 
13583 POKE 183,L5AUI:POKE 184,1 5àU2:IF 
COUNT?-19 THEN COUNT-8:IF РЕ йб THE 
MN GOSUB 16119:G0T0 12458 
11585 GOTO 13468 
13586 RESPS-STRS(TOTI:G050B 16518:IF P 
FLAG-1 THEN LPRINT :LPRINT " 
Total Expenses -'';D0L$ 
15587 IF PFLAG-i THEN PCNT-PCNT*1:GO5U 
B 16618 
135808 ? :7 " 
5 
13589 IF PFLAG-@ THEN 60518 16118 
13538 RETURN 
12592 RESTORE SUBLEG(J3+28808:READ RES 
p$:P05-48418XJ:? " 
"TEMPS (P05, POSH); ч; 
12594 7 TEMPS(CP05*2,P0542) 
13596 IF РҒІйб-і THEN LPRIWT " 


PAYEE 


Total Expenses -'';Düt 


H TEMPS (р05+2,р05+97;" "S RESPS 
13597 6058 16618:RETURN 
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11538 LPRINT CKNBR;" '";MONTH;'"/": TEMPS 
(1,2);" ';TEMPS CI1,48) ;" '';PAYEES;" "; 
TEMP$ (52,59): '':RESPÓ 

13593 50518 16618:RETURN 

15600 REM ХХКЕКЕ CATEGORY TOTALS ТО 5С 
REEN ЖҰ 

15618 POKE 82,7:7 "R'":POSITION 7,7:98- 
2:7 "Enter Category Я’; : 60508 163:88:CÀ 
T$-3TRS(CHBRI : RESTORE i1:CATOT-8 

13628 COUNT-8:? "RChecks in category " 
PCATS :?7 

13638 GOSHB 16218:IF СЕНЕР) 188808 THEN 
13688 

15648 NBR-UALITEMPS (49,49) ) : РОВ 11 TO 
NRR:PO5-48*18X.J 

13658 IF TEMPS(POS,PUS*iJ-CATS THEM GO 
SUB 1:628:7 CKNBR;" P '";TEMPSCPOStZ,PO 
5+9) 

13668 NENT J:TF CCHT-18 THEN CCNT-8:60 
SUB 16118:? :GOTO 12628 

1:678 GOTO 12658 

131688 RESPS-STRS(CATOT):GOSUB 16518:7 
:2 “TOTALI=";DOLS:GOSUR 16110: RETURN 
13685 REM Hee ADD CATEGORY ENTRY 508 
ROUTINE 3330€ 

12698 CUAL-UAL(ITEMPS CP05*2,P054211 : CAT 
0T-CATOT*CUAL:CCNT-CCHT41:RETURN 

ii788 REM XX CATEGORY TOTALS LISTED 0 
M PRINTER WKE 

12718 7 "BR": POSITION 4,7:7 "Press БЫ 
(Тор of Form) ог EZTH3":GET #1,КЕУ:ТЕ 
KEY-27 THEN PCHT-1 

13712 RESTORE 28881:7 "RK'";POSITION 8,7 
Ea Printing Catagory Totals 

15714 LPRINT :LPRINT "CATEGORY TOTALS 
FOR THE MONTH OF '":MONTHS:LPRINT :PCMNT 
-PCHTtI:GÜSUB 16618 

12718 READ RESPS;IF RESPSCL, 3) = HER! Т 
HEN RETURN 

15728 L5AUTI-PEEK(I8331:L 5àUZ2-PEEK (1841: 
N5AU-PEEK(C1822 : САТ-1 5401+2568 5402-2700 
88:CATS-STRS (САТ) 

15738 POKE 281,16:CCNT-B:L-LENCRESPS1: 
IF 1512 THEN FOR I-L*íi TO 12:RESPSLI,I 
J-" ":ҚЕКТ I 

12748 LPRINT CAT;" '";RESPS(I,11);" ; 
;RESTORE i:CATOT-8 

13758 60508 167218:IF СКИВЕ) 10990 THEM 
iia88 

1:768 NBR-UAL(CTEMPS (49,49) 3:FOR dzi TO 
NBR:P05-40*18* 

15778 IF ТЕНР5(Р05,Р0541)-С4Т% THEN 60 

SUB 13638: КРЕТИТ TEMPS(PO0S*2,P05t3) ;"/ 

"СКИВЕ, 

12788 IF ССИТ-2 THEN CCNT-B:LPRINT 

15798 NEXT J:GQTO 13758 

13888 IF ССИТ<2 THEN FOR L-i TO 2-ССИТ 


51 


TUE! 


:LPRINT ,:МЕКТ L 
13818 RESPS-STRS(CATOT) : 60508 16518:LP 
RINT CAT;" TOT=":DOL$:605UB 16618 
11820 POKE 183,L5AVi:POKE 184,L50U2:P0 
KE 182,M5AV:G0TO 13718 

12988 REM 393Xid€ LTST OF AVAILABLE CATE 
GÜRIES ЖЕНЕ 

13382 G05UB 16668:IF RFLAG=1 THEN RETI 
RN 

13918 ? “KCATEGORIES": RESTORE 20801 :С0 
UNT-B:IF PFLAG=1 THEN LPRINT :LPRINT : 
LPRINT "CATEGÜRIES":LPRINT 

13912 IF PFLAG=1 THEN PCNT=PCNT+3:605U 
B 16618 | 

15928 READ RESPS:IF RESPS(I,I)-'300€ Т 
НЕН 12948 

15921 CAT-PEEK(183)4256XPEEK (184) -2888 
8:? CAT;" "'RESPS:COUNT-COUNT41 

13922 IF COUNT=21 THEM COUMT-B:IF PFLA 
628 THEM GOSUB 16118:7 "қ" 

13324 IF PFLAG=1 THEN LPRINT CAT;" ©: 
RESP$:G05UB 16618 

13938 GOTO 13928 

13948 IF PFLAG=@ THEN GOSUB 15118:RETII 
RN 

13942 RETURN 

14888 REM ЖӘНе SAVE DATA TO STORA 
GE ҰНЫН 

14818 7 "RK'":RESP$-"D CHECKS.":RESPSCIB 
)-MONTHS (1,3) :RESP$ (2,2) -CHR$ (58) :POSI 
TION 18,18:? "БРИН ":nESP$ 

14828 LIST RESP$,8,18999:RETURN 

14188 REM Әннен CALCULATE BALANC 
ES ЗОВВОЗОСКЕ 

14118 ? "R":POKE 82,7:POSITION 7,7:2 " 
ПЕНЕТА ЕН УТЕНА :? :RESTORE 1:605U 
B 16218:5TCK-CKNBR 

14112 DEPCNT-8:RESTORE 18888:FOR J-8 T 
0 15:DAMT(.J2728:45CK (J)-23999: МЕКТ J 
14114 605ШВ 16218:IF CKNBR}10999 THEN 
14128 

14115 IF TEMPS(I,6)-'"9999" THEN 14114 
14116 DEPN(DEPCNT)-UAL(TEMPS (3,62) : 450 
K CDEPCNT) VAL CTEMPS (15,182) : DAMT CDEPCN 
T) =VAL CTEMPS (7,143) :DEPCNT-DEPCNT41 
14118 GOTO 14114 

14128 ? "Start check(";STCK;") "::NB-4 
:60508 16388:IF RESPSQ"" THEN STCK-NB 
R 

14122 RESTORE STCK:G05UB 16218:1F СКИВ 
ROSTCK THEN 7 :? "EUTENERITTIBE:? :60 
TO 14178 

14128 BBAL-STBAL:RESTORE 1:60508 16668 
:IF RFLAG-i THEN RETURN 

14148 FOR J-8 TO 15:IF й5СК(,/2(5ТСК TH 
EM BBAÜL-BBAL*DAMT iJ) 

14142 NEXT J 


CHECK CON'T 


14158 GOSUB 16218:1F CKNBR)9998 THEN i 
4168 

14152 IF CKNBRÍSTCK THEN BBAL-BBAL-UAL 
(TEMPS (23,382) :G0T0 14158 

14168 POKE 82,8:POÜKE 281,18:? :7 "PREY 
. BAL CKE AMOUNT НЕН BAL":? 

14162 IF PFLAG-1 THEN LPRINT :LPRINT : 
LPRINT “PREV. BAL — CKH AMOUNT 

NEM BAL":LPRINT :РСИТ-РСИТЯЗ 

14164 IF PFLAG-1 THEN GOSUB 16618 
14178 60506 14188:? :7 "БЕЈЛИ to conti 


nue or ШАЙ": GET #1, KEY: KEYS=CHRS (KE 


Ү):ІҒ KEY-155 THEN RETURN 

14288 POKE 764,255:605UB 16218:IF CKMB 

R>9998 THEN GOSUB 16118:RETURN 

14218 GOSUB 14388:IF PFLAG=1 THEN 1428 

8 

14212 IF РЕЕК(7542-255 THEN 14288 

14228 POKE 764,255 

14238 IF PEEK(764)-255 THEN 14728 

14248 GOTO 14288 

14388 FOR K-8 TO 15:IF ASCK(K)-CKNBR Т 

НЕМ GOSUB 14358 

14318 NEXT К 

14338 CKAMT-UAL (TEMPS (23, 38) ) :? BBAL,C 

KNBR,CKAMT,:IF PFLAGZ1 THEM LPRINT BRA 

L,CKWNBR,CKAHT, 

14532 BBAL-BBAL-CKAMT:? BBAL:IF PFLAG- 

i THEM LPRINT BBÁAL:GOSUB 16618 

14348 RETURN 

14150 7 BBAL,"DEP",DAMT(O, : IF PFLAG-1 
THEN LPRINT BBAL , "DEP" ,DAMT CIO , 

14558 BBAL-BBAL*DAMT(K) :? BBAL:IF PFLA 

5-і THEN LPRINT BBAL:GOSUB 16618 

14:78 RETURN 

i4588 REM ЖЕНЕ ENTER A DEPOSIT X 

2232212 ЈЕ 

14518 7 "А"; РОКЕ 82,14:PÜSITION 24,7:%57 
"UTXTEMEU:? :? "Шеуіем/СҺалае":2 :7 ч 

Add Peposit":? :7 "Ча": DPNBR-DREU 

14528 GET Hi,KEY:KEYS-CHRS(KEY):IF KEY 
$="Q" THEN DPNBR-LASTDEP:GOSUB 14518:1 

ASTDEP-LASTDEP*1:DEPLN-DEPLN*18:RETIRM 


14522 IF KEY-155 THEN RETURN 

14538 RESTORE 18888:POKE 82,7:7 :7 "Ep 
ter Deposit Н (';DPNBR;'"J "::NB-4:6051l 
B 16208:ІҒ RESPSQ"" THEN DPNBR-NBR 
14548 60588 16218:IF CKNBR?18999 THEN 
? :? "ТТЕ": 60506 16118:RETURN 
14558 IF VAL CTEMPS (3,633 ODPNBR THEN 1 
4548 

14568 DAY-UAL(TEMP5 (1,23) : DPAMT-UAL (ТЕ 
МР5(7,143) : ASCHK=VAL CTEMPS (15, 183): 587 
LN-DEPLN:DEPLM-CKNBR 

14562 FOR J-1 TO 7:Р05-11ғ8%.: SUBDEP CJ 
J-UALICOTEMPS CP05,P05472) : NEXT. Ј: 60508 i 
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4668 

14578 DEPLN-SAULN:DREU-DREU41:RETURM 
14688 REM ХЕККЕККЕКУЕ ENTER DEPOSIT DATA 
62232224222 

14618 7 "қ";роКЕ 82,7:POSITION 7,5:7 " 
Enter day (";DAY;") ":MB-2:G050B8 16508 
:ТЕ RESPS O''" THEN DAY-NBR 

14620 ? :? "Enter Deposit # (";DPNBR;" 
) ";:NB-4:G05HB 16288:IF RESPSQ"" THE 
M DPNBR-NBR 

14658 ? :7 "Enter associated":? "check 
number ('";ASCHK;") "::G05UB 16288:ТЕ 
RESP$Q"" THEN ASCHK-NBR 

14648 ? :? "Enter Amount (":DPAMT;") " 
;:NB-8:605HB 16188:IF RESPSQ'" THEN D 
PAHT-NBR 

14641 FOR J-1 TO INCAT:SHBDEP (.]D Z8: МЕН 
ТЈ 

14642 TOT-8:AMT-DPAMT:FOR J-1 TO INCAT 
;RESTORE 28188*J:READ RESP$:? :? "Ente 
r ";RESP$;" (";AMT;") ":SUBDEP C.D ZANT 
14644 60518 16I88:IF RESPSQ"'" THEN Sy 
ВВЕР (.1) HBR 

14645 TOT=TOT+SUBDEP (Ј):ТЕ TOT? DPAMT T 
HEN ? :? "ТИТИ ': сото 14641 
14646 AMT-AMT-SUBDEP CJ) :IF АМТ-8 THEN 
J-INCAT 

14648 МЕКТ 4 

14668 POKE 82,7:? "K";? ;2 "Date = ";М 
ONTHS;" ";DAY:? :? "Deposit # — "TDPNB 
R:? :? “Assoc. ck # = ":A55CHK:? 

14662 7 “Amount = ":DPAMT:? :FüR J-1T 
0 INCAT:RESTORE 28188*J:READ RESPS:? р 

ESP$;" = ";50ВрЕР (3) :МЕКТ J 

14678 ? :? "Correct? ФУ, Brase, HANA] 
J" GET IH ,KEY:KEYS-CHRS(CEY) : ТЕ KEYS" 
N" THEN 14618 

14672 IF KEY-155 THEN RETURN 

14688 IF КЕҮ5-"Е" THEN ? :50508 12218: 

RETURN 

14598 TEMPS(1)-" ":TEMPO(74)-" ":TEMPS 
(2) -TEMP$ : TEMPS-STRS (DAY) : TEMPS C32 STR 

5 (DPNBR) : RESPS=STRS CDPAMT) 

14691 60508 16518:TEMP$ (73-0015 

14692 TEMPS$(15)-STRS(CASCHK) :FOR J-1 To 
INCAT:RESPS-STRS(CSUBDEP (J22 : 60518 165 

10: TEMPS (114*8XJ) -DOLS:NEXMT J 

14788 ? "5";:2 :? DEPLN;" рата "; TEMPS: 

2 17 1? "CONT";POSITION 8,8:POKE 842,1 

3:5Т0Р 

14718 POKE 842,12:RETURN 

14808 REM JX133800€ DEPOSIT CATEGORY TOT 

AL HERRENE 

14818 TOT=@:RESTORE 28181:7 "Қ: :2 : 

FOR J-1 TO INCAT:READ RESP$:? J,RESP$: 

NEET J:? INCAT*1,"Totals" 

14828 ? :? "Press category number .": GE 


T Hi,DCAT:DCAT-DCAT-48:IF DCAT(1 OR DC 
AT?INCAT*i1 THEN 14818 

14828 IF DCAT-INCAT*1 THEN Р05-7:7 "5" 
1717 "PATE DEP Я AMOUNT":? ;RESTORE 1 
8088: 6070 14848 

14838 RESTORE 28188*DCAT:READ RESPS:? 
"RU? 3? "DATE DEP # ";RESPS:? :RESTOR 
E 18888:P05-11*8XDCAT 

14848 60508 16218:IF CKNBR?1i1888 THEN 
? :1RESPSCSTRS(TOUT) : 60508 16518:? " To 
TAL = ";DOL$S:G05UB 16118:RETURN 

14858 AMT-UAL(TEMPS CP05,P 035472) : 7 TEMP 
$(1,2);" ':;TEMPSCU,6);" "S TEMPSECPOS, 
PUS*t73:TOT-TOT*AHT 

14868 GOTO 14848 

14908 REM HEHEHEHEHE INCOME SUMMARY ЖЕ 
жалақыны 

14918 POKE 201,18:505ШВ 16568:ІҒ RFLAG 
21 THEN RETURN 

14912 IF PFLAG=8 THEN 60518 14818:RETII 
RN 

14978 LPRINT :LPRINT :LPRINT "INCOME 5 
UMMARY FOR THE MONTH OF ";MONTHS:LPRIN 
T :PCNT-PCNTt3:G05lUB 16618 

14938 FOR 1-1 TO 7:5üBAMTC.D-8:NERT J: 
TOT-8:RESTORE 28181:FOR 1-1 TO INCAT:R 
EAD RESPS:LPRINT RESPS,:NEKT J 

14948 LPRINT " Total":RESTORE i8888:L 
PRINT :PCNT-PCNTti:GOSUB 16618 

14958 60518 16218:IF CKNBR>11808 THEN 
14988 

14968 FOR J-1 TO INCAT:P0O5-11*8XJ:LPRI 
NT TEMPS CP05,P05*721, : SUBAMT CJ - SUBAMT C 
JI *VAL CTEMPS (Р05 ,РО5+7) ) : МЕКТ J 

14978 LPRINT TEMPS (7,14) :TOT-TOT*UAL (T 
ЕМР5 (7,141) : 50508 16618:G0T0 14958 
14988 FOR J-1 TO INCAT*i1:;LPRINT “_ 
——",:iWEXT J:FOR J-1 TO ІНСАТ:ВЕ5Р5-5Т 
R$ CSUBAMT C. 3 

14338 60508 16518:LPRINT DOLS,:NEKT J: 
RESPS-STRS$(TOT) : 50508 15518:LPRINT DOL 
S$:PCNT-PCNT*1:GÜ0SUB 16618 

15008 REM JOOOO00000€ PRINT DEPOSIT SUM 
MARY БЕНО 

15818 TOT-8:? :PRINT "Dep # Date Amo 
unt ASSOC. CkH":RESTORE 18888:РВІНТ 
15828 IF PFLAG-1 THEM LPRINT :LPRINT : 
LPRINT "Dep # Date Amount Assoc. СК 
H';LPRINT :PCNT-PCNTt::6050B 166186 
15838 60508 16218:IF CKHWBR211888 THEN 
15898 

15848 DPNBR-UAL(TEMPSCI,61) 

15858 ? DPNBR;" ":MONTH;"/";TEHPSCI,2 
a" "ITEMPSC7,14);" — '";TEMPS CIS, 18 
) : TOT TOT*UAL CTEMPS (7,141) 

15868 IF PFLAG-1 THEN LPRINT DPNBR;" 
“MONTH; "Z"; TEMPS CL, 22 ;" "TEMPS (7, 


CHECK CON'T 


14);" "STEMPS$(15,182:G6051I8 16618 

15878 GOTO 15858 

15898 RESP$-STRS$(TO0T2:GO0SUB 16518:IF P 

FLhG-i THEM LPRINT :LPRINT " Total D 

eposit = "pOL 

15831 PCHT-PCNTt*1:605UB 16618 

15892 ? :7 п Total Deposit = ";0015: 

IF PFiáG-8 THEM 60518 16118 

15834 RETIURN 

16808 REM ХЕККККККЕКЕ WHICH CHECK? ХЕМ 

GC HOHER ERE 

16818 ? "K'":POSITION 6,18:? "Input Che 

СЕН C'S CKMBR;") "S:NB-4:605UB 16288:1 

F RESPS<>"" THEN CKNBR-MBR:RETURN 

16028 RETURN 

16188 REM 3398O0€€ WATT FOR KEYPRESS SUBR 

ШТІНЕ 33800 

16118 POKE 82,7:? :? "Press 2183 to c 

ontinue'";:GET #1, KEY:RETURN 

16208 REM ҰН READ A DATALIME SUBRO 

UTINE жене 

16218 READ TEMPS: COUNT-COUNT+1:CKNBR=P 

EEK C183) +256«РЕЕК (184) : RETURN 

16298 REM 3308080€€ LIMITED STRING INPUT 
ROUTINE ЗОВЕ 

16232 REM Энене ИВ 15 Н BLANK SPACES A 

LLOWED БЕБЕ 

16294 REM Ненене TNPUT RETURNED IN RE 

5р5 жазаны 

16296 REM ХЕККК IF NUMBER, RETURNED IN 
NBR 333800080 

16100 POKE 752,80:RESP$-"":FO0R ісі ТОМ 

B:? " '";:NEMT L:FOR ісі TO NB:? CHRS СЗ 
8); : NEXT L:POS-1:NFLG-G 

16318 GET НІ,КЕҮ:ІҒ KEY-155 THEN TEMPS 
-RESP$:60T0 16168 

16117 IF КЕҮ247 AND КЕҮ<58 AND POSTA Т 

НЕМ NFLG-1 

16215 IF KEY-126 AND Р05-2 THEN 2 CHRS 
(38) ;" 'SCHRSCI8) ; :PÜSCI:RESPS-"'" 
16528 IF KEY-126 AND P05>2 THEN 2 CHRS 
(18);" '";CHRS$(IB8);:POS-POUS-1:RESPS-RES 

P$(C1,P05-1) 

16338 IF POS-NB*ti THEN 165318 

16348 IF KEY(28 OR КЕҮ2122 THEN 16218 

16358 ? CHRS (KEY); :RESPS (Р05, P05) -CHRS 
(KEY) ;POS-POSt1:60TO 16218 

16368 NBR-80:IF NFLG-i THEN HNBR-UALLTEM 

P$) 

16378 ? :РОКЕ 752,1:RETURN 

16508 REM знанне PIHT RESPS IN DOLLAR F 

ORMAT ЖЕККЕН 

16518 LILENCRESPS):FOR K-1 TO L:IF RES 

PS(K,K1 O7," THEN NEKT K:RESPSCO-"". 88 

16528 IF L-K THEN RESPSCK*1,K*21-"8à" 

16528 IF L-Kt1 THEN RESPS(CK*2,K*2)-"à" 
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15548 L-LEN(RESP22 :DOLS (39-L) ВЕРУ : TF 
648 THEN FOR K-i TO 8-L:DOLS(K,K)-" ": 
NEHT K:RETURN 

16558 RETURN 

15508 REM ЖҰ FORMFEED SUBROUTINE Ж 
222343 

16618 PCNT-PCHT*ti:IF PCNT?57 THEN FOR 
ісі TO 57-PCNT:LPRINT :НЕКТ L:PCHTZÍ 
15628 RETURN 

16658 REM XXKXXKX PRINTER? SUBROUTINE X 
MADE 

16668 PFLAG-B;RFLAG-B:? "HR": POSITION 4 
2:1? "creen, Огіп?ег, 8 or ПЗ": 
GET HI,KEY:KEYS-CHRS (КЕТ? 

16678 IF KEY-155 THEN RFLAG-Í:RETURN 
16688 IF KEYS-"P" THEN PFLAG-CI:RETURM 


16682 IF КЕҮ-27 THEN PCNT-1:POSITION i 
8,18:7 "ТИТАНА ТЕТ" : РОВ 1-1 TO 18 
B:MEXT J:G0TO 16668 

16685 IF KEYSO "S" THEN 16566 

16699 RETURN 

16788 REM КЕКККЕ ENCODE TEMPS WITH CK 
BATA HHEH 

16718 TEHMPS(1)-" ":TEMPS(1280)-" ":TEMP 
$2) TEMPS : TEMPS (1) = 5785 (049) : TEMPS (2) 
-CPAYEES:RESPS-STRS$(CAMT) : 60508 16518 
16728 TEMPS(2IX)-DOLS:TEMPS (31) -MEMOS : T 
EMPS (49) STRS CHLIMSUBI : РОВ J-1 TO МИМИ 
B;P0S-4üt18XJ 

16738 TEMPS(PO03)-5TRS CSIBLEG (212): RESPS 
-STR$ CSHBAMT C33 : 60508 16518: TEMPS (POS 
*t2)-DOLS:NEXT J:RETURMN 

16888 REM ЖЖЖ GET CHECK DATA 333306 


16818 TRAP 168938:RESTORE CKNBR;READ ТЕ 

MP2:G605UB 178018:RE5PS-PAYEES:GÜSUB 169 

18: PAYEES-RESPS 

16812 RESPS=MEMOS:GO5U8 16910: MEMOS-RE 

5р5 

15838 CKNBR-PEEK 183) 4256%ҰРЕЕК (184) 

16838 TRAP 490080: КЕТЕМ 

16388 REM ee STRIP RESPS OF TRAILING 
BLANKS HHHH 

16918 L-LEN(RESP$) 

16928 IF RESPSIL,L)-" " THEN RESPS-RES 

P$(t1,L-1) :L-L-1:60T0 16928 

16938 RETURN 

17888 REM XXXXXK DECIPHER CK BATA FROM 
TEMPS ЖҰ 

17818 DAY-UAL(TEMPS (1,23) : PAOYEES- TEMPS 
(5,22) 

17828 AMT=VAL CTEMPS (21,3813 : МЕМО5 - TEMP 

5(21,48) 

17836 NUMSUB-UAL(CTEMPS (49,493) :FOR J-1 
TO NIMSHB:PUS-48ti18*XJ:SUBLEGCJJ -UAL (Т 

EMPS (P05,P05*1)) 


CHECK CON'T 


17848 SUBAMT (Ј) -UAL CTEMPS (P05*2, P0532) 


):NEXT J:RETURN 


19999 REM 3X33HH800€ CATEGORY W'S AND WA 


MES ЭННННННННЕ 


20888 
20818 
28811 
28812 
288131 
28814 
18815 
28816 
28817 
208028 
28821 
28822 
28823 
20824 
28825 
28826 
28827 
280838 
28831 
20832 
28813 
28048 
280841 
28842 
28843 
28844 
28845 
280846 
28847 
28848 
288068 
28861 
28862 
10861 
28864 
28865 
28866 
28867 
28868 
20869 
28838 
28831 
28892 
20835 
18894 
18188 
Е5 ІН 
28191 
28182 
28182 
28184 
28185 
28186 
20187 


DATA 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
DATA 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
DATA 
рата 
рата 
рата 


рата 
DATA 
DATA 
рата 
рата 
рата 
рата 


Pas. Salary 
Pas. Trans. 
Rent/Ut/IRAÀ 
Pro. Growth 
Leitch 5al. 
AP Transp. 
АР Health 
AP Soc 5ec. 
thurch Mort 
Pkg Lot Ln. 
Church баз 
Ch. Com Ed. 
Ch. Mater 
Bond Int. 
Bond Reden. 
Bldg & 6145 
Off, Supply 
Ch. Phone 
Miscellany 
Honorarium 
Sunday Sch. 
Youth 

Bus Minist. 
fwana Clubs 
Jr. Church 
UBS 

Music 
Dinners 
Flowers 
Rowells 
Biven 
Stirewalt 
Вгаммег 
Mingo 
Buckley 
Hayes 

Miss. Other 
F of Israel 
Connon 

B. Fund Dep 
üthers 

Love Offer. 
M, Fund Dep 
Salables 


KENEEN ADD DEPOSIT CATEGORI 
THE 7 NEXT LINES ЖҰҰҰҰ 


Love Off 
Tithes 
Missions 
Bidg Fnd 
Others 
Awana 
Extra 


SMART CON'T 


1518 ? " A...Z,%;CHRS C3495" Marks 
cell as a label":? " @...9,4,- Marks 
cell as a value" 


isis ? S ; Sum Formula. Tota 
15 values":? " in a column 
or row." 


Marks cell as a f 
Main Menu. Cho 


i528 ? " OPTION 
ormula":? " SELECT 
ose from:-" 

15615 2°" 6-Global Format": 
Ж. L-Load Morksheet":? ғ 

$5-5ave Worksheet" 

4526757"! P-Print Worksheet 
"a E-Erase Worksheet" 
1512: 7.” Н-Номе Cursor. (Ce 
11 A13":7 “ ?=Help Screen. 
" 

1535 2" START Calculate Могкоће 
gt':? :2 :2 "b- PRESS ANY KEY TO ВЕТИВ 
N -US:IGET #2,К: 6070 428 

1999 STOP 

2000 Vi- 12 54567 8 310111215141 
616171819202122252242526272823505152555 

4552627585940ш 

2885 HS-'CEITIJZ DRIED :8003-77:F0R T 
=? TO 4:H(T)-HCT-1) *8: NEHT. Т:РОКЕ 5376 
8,288:GL-8 

2818 OUTSCi)-" ":00T2 (4888) =" OUTS C2 
Jz0UTS:INS-O0UT$:553(1)-" ":55(6062- "'; 
55423-55 

2815 PRLI" ":PR$CI20)-" ":PR$C2)-PR 
$ 

2828 N-1:Y-1:C$- ШШ : MINK : YMI 
-X:YAi-H:Ki-HE:KNMAM-4: YMAH-2B:CELLS-"A1" 
:FL-8:CL5-" p 

2858 RETURN 

2188 CLOSE HL:RESTORE 2128:POKE 54286, 
192 

2185 READ E,DIS:IF E-PEEK(195) THEN РО 
SITION 8,1:7 “GError:";DIS: TRAP 48888: 
60508 218:60T0 58 

2118 IF Е--і THEN POSITION 8,1;? upErr 
ог: Но," ;PEEK (195) ;" ":TRAP 4888 
8:6050B 218:60T0 58 

2115 GOTO 2185 

2128 DATA 128,феуісе Not ün,132,Device 
NAK, i48, Serial Ғгаме,142,5егізі Bus, i 
45, Checksum Мо.142 

2122 DATA i44, Write Protected, 162,Disk 
Full,i6z,Bad D05,167,File Locked,178, 
No such file,-i,a 


FROM LAST MONTH 
PROGRAM COMPARER 


18 REM знє PROGRAM COMPARER BY RICK GR 


OSZKIEWICZ 
iĝa DIM LINE15(158),LINE25 (158) , FILE? 
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(153, 210 Е25 (153 : OF F-48006 

105 GRAPHICS 8:РОКЕ 82,1:POKE 83,38 
1128 ? " Program Comparator'":? 
;2 "This program analyzes two Listed B 
AsSICprograms and prints the difference 
g” 

128 ? :? :? "Please enter the name of 
file Hi" 

148 INPUT FILEi$ 

158 ? :? :? "Please enter the name of 
file #2" 

i68 INPUT FILE2$ 

178 7:7 ;? " Please load disk con 
taining both filesand hit RETURN to st 
art" 

i88 POKE 764,255 

198 IF PEEK(764)-255 THEN 198 

288 POKE 764,255 

285 REM ЗЕ OPEN BOTH DISK FILES 

286 CLOSE Hi:CLOSE H2:CLOSE #3 

218 TRAP 228:0PEMN H1,4,8,FILE15:TRAP 0 
FF:GOTO 218 

228 ? :? "FILE ti, (";FILE29;") PRODUC 
ED AM ERROR, (";PEEK(195) 5°" 7? 

338 TRAP OFF 

348 GOTO 1:8 

145 REM ЖҰЖ PROMPT FOR SCREEN US PRINT 
ER 

i58 10-0 

368 ? :? "Do you want output routed to 
printer?"; 

i65 POKE 764,255 

i78 IF PEEK(764)-255 THEN 178 

175 IF РЕЕК (7647-41 THEN ? " уе5":10-5 


188 IF PEEK(764) O43 AND PEEK(764) O 35 
THEN GOTO 365 

185 REM XXX TRY TO ОРЕМ THE PRINTER 
i38 TRAP 488:IF РЕЕК (7642-15 THEN ? " 

Ho":? :G0TO 416 

135 OPEN 12,8,8,"P:":G0TO 416 

488 ? :? "PRINTER DOES NOT RESPOND";? 
;? "PLEASE CHECK PRINTER AND":? "HIT A 

HY KEY TO CONTINUE ":POKE 764,255 

485 IF PEEK(764)-255 THEN 485 

4i8 CLOSE Н2:65070 398 

415 REM Жж MAIN PROGRAM LOOP 

415 POKE 764,255:IF 1025 THEN PRINT HI 

Q;"FILE Hi “;FILELS: PRINT HIO;"FILE #2 
":FILE25:? HIO:? HIO 

ата LINE-8:TRAP 1888 

425 INPUT HI;LINEI1S 

428 LINEi-UAL(CLIME15 (1,52) 

448 INPUT 12; LINE25 

458 LINEZ-UAL(LINE25 (1,52) 

458 IF LINEDLINE2 THEN ? #10:7 HIO;"F 
ILE H2 ONLY: ';LINE2?:G60T0 448 

478 IF LIMEi-LIMEZ THEN 588 

488 ? HIO:? HIO;"FILE Hi ONLY: ";LINEI 
$ 


SMARTSHEET 


SMARTSHEET is a spreadsheet calculator which is extremely 
handy for financial forecasting, budgeting or any calculations involving 
many variables. NOTE: Due to its need for two buffers, Smartsheet will 
only work on a 32K cassette or 48K disk system as a minimum. The 
on-screen worksheet is divided into cells or grid co-ordinates, arranged 
15 columns across (A-O) and 40 rows down. Examples are: A1, O15, F32, 
etc. Due to the cell format (total of 600 cells) it is only possible to display 
a portion of the worksheet on the screen, so in order to view different 
areas of the worksheet, the screen acts as a scrolling window over the 
worksheet. 

OPERATION: Those already familiar with spreadsheets (eg. 
VISICALC, SYNCALC), should feel at home since Smartsheet is basically 
styled after VISICALC. To newcomers, | hope the following will be enough 
to get you started. 

When Smartsheet is run, the screen is divided into two sections. 
The upper blue screen is the input window, which displays different 
menus, input prompts, error messages and the current cell co-ordinate. 
Below, is the grey worksheet screen, the window to the rest of the sheet. 
The black inverse bar is the cursor and is controlled by the normal cursor 
control keys. Its initial position is cell, A1. Smartsheet recognises three 
cell types: Labels, Values and Formulas. 

Since Smartsheet only involves itself with number calculations, 
labels are for the users' benefit, similar to REM's in BASIC. They are 
usually placed in the column left of a value, to identify it. E.g., SALES, 
COST, PROFIT, etc. Labels are exactly like the list of items on a shopping 
list. To enter a label, position the cursor and type in the label, if the label 
is too long, the cursor will automatically be forwarded to the next column. 

Values are numbers you input for the worksheet calculations to 
function properly. Values may take any form — positive, negative, 
decimal, etc. The use of values are similar to the prices next to items 
on a shopping list. Values are inputed by typing numbers directly into 
the cell. When the cursor is moved away, the value is moved to the right 
to allign the decimal places. By pressing OPTION, formulas can by 
inputed into the current cell or answers to simple equations can be found. 

NOTE: Values are necessary in a worksheet for formulas to function 
at all. Smartsheet gathers its input from cells nominated within a formula 
and displays the result after all calculations are complete. After pressing 
OPTION, “Formula” appears on the status line and on the input line you 
are asked whether the first number in the formula is to be a cell location 
or a number. 

The power of formulas in Smartsheet, is its ability to access values 
from other cells; i.e., formula may calculate a PROFIT figure, and therefore 
will access the values you inputed for SALES and COST and subtract 
them. Next the desired operation has to be inputed — addition, 
subtraction, multiplication, division or exponent (power of). Smartsheet 
is limited to one operation per formula. After entering the 2nd number 
as a cell or number the full equation will be seen on the sheet. If no cells 
have been accessed, the formulas will remain until they are calculated 
after pressing START. 

A subset of the formula, is the SUM function, which is accessed 
by typing a colon (:). The SUM function allows you to total values 
between one cell and another in a particular row or column. After typing 
a colon, the input line asks "FROM CELL:?", here you should enter the 
cell where the totalling will begin, e.g. A1. Your input will be registered 
in the brackets in the status line. Input the cell, where the totalling will 
end, when "ТО CELL:?” appears, eg. A9. The input line will be cleared, 
and when you move the cursor off the formula cell, your From and To 
cells will be shown, eg. :А1:А9. 

Once you have finished structuring your worksheet, complete with 
labels, values and formulas, press START to calculate the worksheet. 
The message ‘Calculating... will appear while Smartsheet is computing 
answers. Calculating time depends on the number of formulas within 
the worksheet. When Smartsheet has finished, the screen will 
temporarily clear and the final worksheet will be seen with all formulas 
replaced with the results. 

Smartsheet also has an optional menu for aid while developing a 
worksheet. The menu is accessed by pressing SELECT. The menu ‘GL 
E S P H' will appear on the status line. Press the corresponding key to 
obtain these functions: Global Format: Selects how values are to be 
formatted when inputed. Choose from Dollar, Normal and Integer 
formatting. Dollar will automatically change your inputed value to dollar 
and cent format. Normal will leave your value untouched, while Integer 
will round your input to the next whole number. 

Load Worksheet: Loads a previously saved worksheet from a disk 
or cassette. Press D or C to select Disk or Cassette respectively. If using 
cassette follow the same procedure as loading BASIC programs. If using 
disk, you may either press the bar to cycle through the Smartsheet 
workfiles on your disk and press RETURN to load the file displayed in 
the input window. Or you may input a filename directly on the input line 
and press RETURN to load it. 


Save Worksheet: Saves current worksheet in memory to either disk 
or cassette. Press D or C to select Disk or Cassette to save on 
respectively. NOTE: Smartsheet saves the whole sheet, so cassette 
owners make sure you have about 50 counter spaces on the cassette 
and be prepared to wait during saving and loading times! Disk owners 
have two choices (same procedure as Load function): Press the space 
bar to cycle through the Smartsheet files on your disk and press RETURN 
to update or save over the file displayed in the input window or input 
a filename (8 letter limit) directly on the input line and press RETURN 
to save it. NOTE: Smartsheet uses 'SS' as an extender on its saved 
worksheets to identify them. 

Erase Worksheet: Clears the current worksheet from memory. The 
program will re-ask whether you wish to erase the current worksheet 
in memory. Type Y to erase, or any other key to return to the worksheet. 
If you type Y then the screen will temporarily clear and a clean worksheet 
will appear. 

Print Worksheet: Prints the current worksheet to a printer. Make 
sure your printer is ON LINE!! First you will be asked to input the cell 
at the lower right corner of your worksheet (in order to define the bottom 
and rightmost column). After entering the cell co-ordinate, you may 
imbed printer control codes at the beginning of each row in the 
worksheet. Type Y to imbed control codes eg., double width for headings. 
If you elect not to use printer codes, press RETURN to begin printing. 
If you type Y for printer codes input the row number to imbed the code. 
NOTE: The program will send control code before printing the row. Next, 
type the code in and follow the same procedure to input more codes. 
When you have finished press RETURN to print the worksheet. 

Home Cursor: Returns the cursor to cell A1. When you are moving 
around the far extremes of the worksheet it is handy to use this function 
instead of repeatedly using the cursor keys. 

Help Screen: Calling up this screen lists all the main keys and 
functions of Smartsheet. That about wraps up the features of 
Smartsheet. If you prefer to have the cursor move without having to use 
the CONTROL and arrow keys simultaneously, just change the value 
equal to K in the lines 65,70,75 and 80 to 61,45,43 and 42 respectively. 

EXAMPLE WORKSHEET: An actual example is better to explain the 
basics behind a worksheet or 'template', ala the two sample screens. 
Screen 1 shows a template in its raw state with all formulas being 
uncalculated. All headings and item names are example of labels. NOTE: 
Any character including numbers may be made into a label by typing 
an apostrophe before entering the label, eg. the line of minus signs 
beneath the heading. The price of the items are all values and have been 
Dollar formatted. The formatting has been changed to 'Normal' mid-way 
in creation to prevent quantity values to be in dollar and cent format. 
In the D column, formulas are present. In cell D6, the value of cell B6 
(price of chicken) will be multiplied by cell C6 (quantity of chicken). The 
result of this formula will be shown after calculation. The same applies 
to cell D18, where the item total (D15) is subtracted from the available 
cash (D3). Cell D15 (item total) is using the SUM function. Upon 
calculation, Smartsheet will add all values from cell D6 to D13. NOTE: 
Smartsheet calculates all formulas and sums from left to right, top to 
bottom on the worksheet.hen START is pressed, Smartsheet will pause 
to calculate and the result will appear as in Screen 2, where all formulas 
in the D column have been solved and replaced by a number. From here 
the user may experiment with different cash, price or quantity values 
to view the final outcome on Mrs Jones' purse. As can be seen in Screen 
2, Mrs Jones will have trouble paying the bill with only thirty dollars. 


498 INPUT HI;LINE1S$:L INEI-UALCLINEi1S (1 
,91):60T0 468 

435 REM ХЕК НЕ HAVE A MATCH! 

588 IF LINEiS-LINE29 THEN 425 

518 ? HIO:? HIO;"FILE fi: ";LINE1$ 

528 7 HIO;"FILE #2: '";LINE2$ 

528 6070 428 

1888 REM ЖҰЖ 

1818 IF РЕЕК (1952-1356 THEN ? :? "END 0 
F FILE REACHED": END 

1828 ? "ERROR '";PEEK(1952);" STOPPED EX 
FCUTION " 


STARWARS 


STARWARS (Parker Brothers) is the translation of the famous 
Starwars arcade game put into cartridge for the Atari 8-bit computers. 
The object of the game is to destroy the Imperial Fighters, the maze of 
laser towers, and destroy the Death Star by flying down the trenches 
of the Death Star and dropping your cargo of anti-matter disrupter into 
the exhaust port. That's what | call what you are firing, for a lack of 
calling it anything else. They are actually Proton Torpedoes. 

The game is played with the joystick as you might imagine, being 
an x-wing pilot, and the fire button is used to blast the Imperial Fighters, 
Towers, and Thermal Exhaust Port. l've noticed the controls are very 
similar to the arcade version! 

Any time you want to freeze the action you only have to press (I 
didn't say Hit) the Space Bar. This allows you to take pictures of the 
screen to show your friends the ultimate high score. : 

There are 3 waves of difficulty which one has to deal with the 
destroy the Death Star: 4 

1. Approaching the Imperial Fleet: You must destroy the Tie-Fighters. 
Sounds simple? Well, think again. These nasty little guys hurtle fireballs 
at you as they pass. The fireballs disrupt one shield per hit. You only have 
9 energy shields to begin with! When successful you will be ported to 
the next wave, as with all the waves. 

2. Surface of the Death Star: In this wave you maneuver your craft 
through a series of Laser Towers. The Towers shoot fireballs back at you, 
so be careful. You are to shoot the tops of the Towers to go on to the 
next wave. Sound simple? (tee hee) By the way, when you hit a tower 
with your ship you lose an energy shield. 

3. Death Star Equatorial Trench (DSET): Once you are in the DSET 
be prepared to fly by the seat of your pants. Again as with the other 
waves there are the fireballs to put up with. You even get the chance 
to fly under or over suspended catwalks. Don't touch them with your 
craft or you will lose another shield. l've found it easier to blast the 
fireballs the instant they appear on the screen. Then all you have to do 
is fly between the catwalks. 3 

When you have flown past the catwalks keep an eye on the trench 
floor for the Thermal Exhaust Port. Blast away to send your proton into 
the Death Star. Then off you go to watch the explosion, at which time 
you have saved the Rebel Base. 

The game ends when you run out of shields then are hit by a fireball, 
run into a tower, or run into a catwalk. You get points along the way to 
save the Rebels by destroying the following: Tie Fighters — 1000 points; 
Fireballs — 33 points; Laser Towers — 200 point each (bonus of 50,000 
points if all are destroyed); Death Star — 5000 points (bonus award of 
3 energy shields). 

Depending upon which wave you are in you will earn bonus points 
using the Force: Wave 1 — 5,000; Wave 2 — 10,000; Wave 3 — 15,000; 
Wave 4 — 25,000; Wave 5 — 50,000; Wave 6 — 100,000. 

Upon playing the game | find myself wondering why | spent all those 
quarters in the arcade! The graphic ability of the Atari really shines in 
this program. My compliments to the game designer. the graphic screens 
in this game are very similar to those in the arcade. Well, very close for 
an 8-bit machine. There is also something worth mentioning. It has a 
180 day warranty. Now that is something you don't see every day! 1 
suggest this one be purchased and added to your collection. 

— Stephen E. Warn 


VP RAMBLINGS 


The newsletter of late has not been the best that we can do. This 
has mainley been due to the fact that | have not coordinated my part 
of the putting together of the newsletter with the other editors. Anyway 
this policy is now changed and we will try to bring you the newsletter 
of old where everything in the issue was for that issue and nothing was 
left out. | hope that by these actions we will be able to bring you a better 
newsletter and one which all members can be proud of. 

As you have seen in the stores and newsprint the price of computers 
is coming down and this means programs etc. are doing the same. From 
the rumors that are going around the price should fall even further so 
everyone who wants one can own a computer. This is good news for 
all of you who have been putting off buying some of that equipment you 
wanted. The way things are going you will soon be able to afford it. This 
should make things more enjoyable. 

Keep your eyes on the printer market as they are not only coming 
down in price but they are getting better then ever. The quality of print 
is getting better, speed too. The noise level is lower along with the price 
so that, like computers, you can get great printers and very low prices 
especially compared to a few years ago. 


More people of late have told me about buying a computer. They 
have talked about the ST and all that it can do and what they can do 
with it. After all that was said and done І asked them one question, "what 
do you want to do with the computer?" They thought about this and 
after they told me what they wanted it turned out all they need was a 
good old eight (8) bit machine. In fact the 130XE more than filled the 
bill and can do everything they wanted and more. So there is still a place 
for this machine and more software to operate it. The small machine 
is not dead, but very much alive and giving very useful service. 

— Larry Gold 


TOKENS 


(Atari Tokenized BASIC Files, reprinted from October, 1985 R.A.G. BAG) 

There is a pattern to the header seen on the first sector of a SAVEd 
Atari BASIC file. The first 14 bytes (500) are pointers to the various tables 
which BASIC uses to store variable names, values and the statements 
which make up our programs. Take a look at the sector dump below of 
the first sector of a BASIC program. 

SECTOR 620 ($26C) FP. 621 Е#13 

ОО 00 00 00 O1 2A 01 2B 01 ....“. +. Header 

08 АЗ 01 B9 OD CF OD 46 4E #.9.0.FN 

10 A4 46 57 А4 D8 C2 4F 46 $FWS$XBOF Var Name Table 

18 46 53 45 D4 CB 43 54 52 FSETKCTR 

20 CC D9 DA 44 53 44 4C 4C LYZDSDLL 

28 CF 44 53 44 4C 48 C9 44 ODSDLHID 

30 53 44 CC 44 4C CC CC CA SDLDLLLJ 

38 00 80 00 00 OO OO OO OO ........ Var Value Table 

40 00 80 01 00 00 OO OO 00 ........ 

48 00 00 02 00 OO OO OO OO ........ 

50 00 80 ОЗ 00 00 00 OO 00 ........ 

58 OO 80 04 00 OO OO OO OO ........ 

60 00 OO 05 OO OO OO OO 00 ........ 

68 00 80 06 OO 00 OO OO OO ........ 

70 00 80 07 OO OO OO OO 00 ........ 

78 00 00 08 00 OO 36 6D 7D ..... 6m. 

The first two lines can be decoded by using the following diagram: 

OO 00 VN TB EV NT DV VT 

DS TB DS DL DE ND vn vn 

The first pair of bytes ($00,01) is the pointer to LOMEM which is 
stored at 580,81 (129,130 дес). It is loaded in from 52Е7,2Е8 (743,744 
dec). Again, these bytes are stored in lo-byte format, that is, the low 
half of the number is first and the high half is last. These first two bytes 
are always “00 00". 

The second pair, labeled "VN TB" (bytes $02,03) is the pointer 
(actually tells the distance of the Variable Name Table from the start of 
RAM) +2567. These 256 bytes are a temporary storage buffer during 
tokenization of a statement just after you hit the RETURN key. The value 
is normally “00 01". 1 say normally because you can alter the value of 
VN, the third byte of the sector (& first byte of each additional header 
byte pair by the same amount), and effectively protect your program 
being listed. In our example “00 01” means the Variable Name Table 
starts at the $OE (14 dec)th byte of the sector. The variable name is FN$ 
and is “46 4E А4” in ATASCII. The variable names are written with the 
last character inverted. Dextral character inverted (DCI) means the high 
bit of the binary number used for the ending character is turned on 
making it inverse video. This in reality just adds $80 (1000 0000 in 
binary), and in this way BASIC knows when it reaches the end of the 
variable name. 

Next comes the pointer to the end of the Variable Name Table + 
256 (bytes $04,05 and shown as EV NT). 

Bytes $06,07 (shown as DV VT) gives the distance from the start 
of the variable name table to the start of the Variable Value Table +256. 
Just count the number of bytes from the start of the variable name table 
to the start of the variable value table and add 256 (that’s a hi-byte 01) 
and you've got the number. 

In the second line of the sector dump, the bytes labeled "DS TB" 
(sector byte $08,09) point to the start of the Statement Table. Following 
these bytes is the offset to the end of the Statement Table (bytes $0A,0B 
shown as DS DL). This is the end of your BASIC program. These bytes 
point to the last byte of the last line of the actual program. 

But there’s more. Remember when you SAVEd your program? The 
line you typed in with the program name is also there in your BASIC file. 
It's what | call the Default Save Last Line (DS DL). It starts at the byte 
following the end of the statement table (bytes $0A,0B) and ends with 
the address pointed to by bytes $OC,OD (labeled DE ND). 

Look over the sector dumps included and see if you can find all the 
parts we've mentioned. 


SECTOR 621 ($26D) FP. 622 Е#13 

00 00 00 00 00 00 09 00 OO ........ Var Value Table 

08 00 00 00 00 00 OA 00 OO ........ 

10 00 00 00 OO OO OB OO 00 ........ 

18 00 00 00 00 00 ОС 00 OO ......... 

20 OO 00 00 OO OO OD 00 OO ........ 

28 00 00-00 00.00 OE OO OO ........ 

30 00 00 00 00 OA 00 24 24 ..... $$ Statement Table 

38 00 41 54 41 52 49 20 42 .ATARI B 

40 41 53 49 43 20 46 49 4C ASIC FIL 

48 45 20 52 45 43 АЕ 56 45 З RECOVE 

50 52 59 2D 44 49 53 4B 9B RY-DISK. 

58 14 00-13 13 00 62 79 20 .....- by 

60 42 69 6C 6C 20 50 65 74 Bill Pet 

68 72 79 9B 1E OO 11 11 OO'Ty...... 

70 31 37 20 44 65 63 20 31 17 Dec 1 

78 39 38 34 9B 28 36 6E 7D 984.(6n. 

The ending sector of the program is #646, with the last byte 
designating the number of data bytes in use. For us that's $2B (43 dec). 

SECTOR 646 (5286) FP. О Е#13 

00 OO 00 1B 1B 36 87 2D O3 ...б.- 

08 41 02 08 00 OO OO 16 E8 A......h 

10 03 06 06 24 16 00 80 16 ...5.... 

18 16 19 OF OE 44 3A 52 45 ....D:RE 

20 43 ДЕ 56 45 52 44 2Е 42 COVERD.B 

28 41 53 16 44 4C 48 C9 44 AS DLHID 

30 53 44 CC 44 AC CC CC CA SDLDLELJ 

38 00 80 00 00 00 OO OO OO ........ 

40 00 00 O1 00 OO OO OO OO ....... 

48 00 00 02 00 OO OO 00 OO ........ 

38 00 00 30 00 00 00 00 OO ........ 

38 00 00 04 00 00 00 OO OO ........ 

38 00 00 05 0000 00 00 00 ........ 

38 00 00 06 00 00 OO OO OO ........ 

38 OO 00 07 00 00 00 00 OO ........ 

38 00 00 08 00 00 34 OO 2B ..... 4.4 

Tokens are an intermediate short-hand form of storing your BASIC 
statements. Each time you type in a line in BASIC and press RETURN, 
the line (presently in the line buffer) is tokenized and then stored in 
memory. When you RUN the program the tokens are quickly interpreted 
and translated to machine language and so goes the program. Two books 
are available: "De Re Atari" and “Тһе Atari BASIC Sourcebook”. 

What follows is a list of tokens used in Atari BASIC (Atari Microsoft 
uses different token values): 

Atari BASIC Fixed Tokens 


Statement Operator Function 
$ # $ # $ # 
00 0 REM OE 14 (NUM CONST) ЗО 61 STR$ 
01 1 DATA OF 15 (STR CONST) ЗЕ 62 CHR$ 
02 2 INPUT 10 16 DOUBLE QUOTE ЗҒ 63 USR 
03 3 COLOR 11 17 (DUMMY) 40 64 ASC 
04 4 LIST 12 18, 41 65 VAL 
05 5 ENTER 13 19 $ 42 66 LEN 
06 6 LET 14 20 :(STMT END) 43 67 ADR 
Q7-74F 15.21; 44 68 ATN 
08 8 FOR 16 22 CAR RTN 45 69 COS 
09 9 NEXT 17 23 GOTO 46 70 PEEK 
OA 10 GOTO 18 24 GOSUB 47 71 SIN 
OB 11 GO TO 19 25 TO 48 72 RND 
OC 12 GOSUB 1A 26 STEP 49 73 FRE 
OD 13 TRAP 1B 27 THEN 4A 74 EXP 
OE 14 BYE 1C 28 # 4B 75 LOG 
OF 15 CONT 1D 29 (= (NUM) 4C 76 CLOG 
10 16 COM 1E 30 () 4D 77 SOR 
11 17.CLOSE 1F 31 )= 4E 78 SGN 
12 18 CLR 20 32 ( 4F 79 ABS 
13 19 DEG 21-33] 50 80 INT 
14 20 DIM 22 34 - 51 81 PADDLE 
15 21 END 23 35 = 53 82 STICK 
16 22 NEW 24 36 * 54 83 PTRIG 
17 23 OPEN 25 37 + 55 84 STRIG 
18 24 LOAD 26 38 - 
19 25 SAVE 27 491 
1A 26 STATUS 28 40 NOT 
1B 27 NOTE 29 41 OR 
1C 28 POINT 2A 42 AND 
1D 29 XIO 2B 43 ( 
1E 30 ON 2C 44) 
1F 31 POKE 2D 45 = (ARITH) 
20 32 PRINT 2E 46 - (STRING) 
21 33 RAD 2F 47 (= (STRINGS) 
22 34 READ 30 48 () 


23 35 RESTORE 31 49 )= 
24 36 RETURN 32 50 ( 


25 37 RUN 24.51] 
26 38 STOP 34 52 = 
27 38 РОР 35 53 + (ОМАНУ PLUS) 
28 40? 36 54 - (UNARY MINUS) 
29 41 GET 37 55 ( (STRING LEFT PAREN) 
2A 42 PUT 38 56 ( (ARRAY LEFT PAREN) 
2B 43 GRAPHICS 39 57 ( (DIM LEFT PAREN) 
2C 44 PLOT 3A 58 ( (FUNCTION LEFT PAREN) 
2D 45 POSITION 3B 59 ( (DIM STR LEFT PAREN) 
ЗЕ 46 DOS 3C 60 , (ARRAY COMMA) 


2F 47 DRAWTO 

30 48 SETCOLOR 

31 49 LOCATE 

32 50 SOUND 

33 51 LPRINT 

34 52. CSAVE 

35 53 CLOAD 

36 54 (IMPLIED LET) 
37 55 ERROR (SYNTAX) 

Each variable name you use in your program is also tokenized by 
a number starting with $80-- (dec 128 +) and referred to by the variable 
number (in sequence that you named them), rather than by their actual 
name. А short program to list out these tokens is given in the Atari BASIC 
sourcebook. 

BASIC File Recovery 

Protecting BASIC programs has been done for several years. In the 
Fall, 1983 issue of Atari Connection, p. 60, is given a simple way of 
protecting BASIC programs. | tried it and, indeed, it did work. In that 
article it is stated that once you protect your program it was irrecoverable. 
Irrecoverable is not impossible (at least not in the same way a formatted 
disk is). It took a couple of days. We'll use what 1 learned about the 
Default Save Last Line to demonstrate line structure and token use. 

Resetting Current Line Pointer 
32767 POKE 
РЕЕК (138) + 256*РЕЕК (139) + 2,0:SAVE"D:FILENAME":NEW 

In tokens it looks like this: 

FF ТЕ 45 33 1Е 46 ЗА OE 41 01 38 00 00 00 2C 25 03 41 02 56 00 
OO 00 24 46 ЗА OE 41 01 39 00 00 00 2C 25 OE 40 02 00 00 00 00 
12 OE 00 00 00 00 00 OO 14 42 19 OF OA 44 ЗА 46 49 4C 45 ДЕ 41 
4D 45 14 45 16 16 

This statement resets the line pointer for the current line. Recovery 
is by locating "DS DL’ (bytes $0A,0B) and finding the address of the 
start of the Default Save line ($8000, 32767 dec). Using byte $0Е as 
the starting address, count forward (MSB-1)* 256 -LSB. This corrects 
for the buffer offset of the "DS DL’ value. On reaching this, type in the 
SAVE line in accordance with the following example: 

Default Last Line at End of BASIC program 

Line Tokens 

0080... 190F08443A——— — — — OE — — — 16 
Line Byte Number 

0123456789ABCDEF 10 11 12 13 14 15 

Bytes 42,3 are the line length and statement offset. If you use an 
eight letter filename plus a three letter extender you will end up with 
a line length of $15 bytes. Enter your line length in both 2 and 3. 

Once the default last line has been added at the proper location, 
add the line length (in hex) to the "DS DL’ and place the new address 
(be sure it includes the MSB+1 buffer offset) in "DE ND" ($C & D) of 
the BASIC program file header. This will enable you to list the BASIC 
program, providing the Variable Name Table is in order. If it has been 
replaced with single characters, like below, then edit by using normal 
CAPITAL letters (the hexadecimal ATASCII equivalence, of course), ended 
with an inverse capital letter or number. By the way, if you replace all 
the variable names with lowercase letters you will be able to list the 
program. However, when you attempt to list any line separately you'll 
end up with a mess. Give it a try and you'll see. 

Replaciing Variable Name Table with Single Character 

32766 FOR О=РЕЕК(130) + 256* PEEK(131) TO 
РЕЕК(132)--256%РЕЕК(133):РОКЕ 0,155:NEXT О 

Peeking prior to cleaning up the program will lock up the system, 
which precludes fixing the pointers and variable names that way. If all 
this seems like a lot of work, it is. However, | have summarized the 
cleaning-up process in a simple GET/PUT Basic program. This program, 
RECOVERD.BAS, has been on the RAG BBS (707-539-8889) for 
downloading. 

A much better way to protect your BASIC programs, besides altering 
tables, is to compile them to machine code. This can be easily done with 
a BASIC compiler. MMG is a good one. What you end up with is a binary 
load file which can give you that "Assembly Language" programming 
ability without even the slightest knowledge of 6502 machine language. 


— Bill Petry 








Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user group with no connection to Atari Corp. We are a group 
interested in educating members in the use of Atari computers and 
publishing the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our 
members. 

Our membership is world wide. Membership fees include the A.C.E. 
newsletter (10 issues per year) and high access in the A.C.E. Bulletin 
Board System. Dues are $14 a year for U.S., and $24 a year overseas 
airmail. 
Subscription Dept.: 
President — 


3662 Vine Maple Dr., Eugene, OR 97405 

Dick Barkley, 2907 Wingate, Eugene, OR 97405 

(503) 344-5843 

Vice President — Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 

(503) 686-2490 

8-Bit Librarian — Chuck & Jody Ross, 2222 Ironwood, Eugene 97401 

(503) 343-5545 

ST Librarian — Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 

(503) 484-4746 

Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 

(503) 344-6193 

Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 

(503) 484-4746 

Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 

(503) 686-1490 

E.R.A.C.E (Education SIG Editor) — Nora Young, 105 Hansen Lane 

Eugene, OR 97404 / (503) 688-1458 

Send 50c stamps or coin ($1 overseas) to the Librarian for updated 
ACE Library lists. 


Editors — 


A.C.E. Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of a 130 XE upgraded to 576k by Charlie Andrews, 2 double-density 
ramdisks, 2 double-density disk drives, and a 10-meg hard disk from 
Supra Corp, an Epson MX80 printer, a 2400 US Robotics Courier modem, 
running the Mindlink Bulletin Board software (modified). 
Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the 
first issue, Oct. 1981 to June, 1982. 

Volume 2 contains July 1982 through June 1983. 

Only $12 each ($2 extra for airmail). Available only from George 
Suetsugu, 45-602 Apuapu St., Kanoehe, HI 96744. 


IYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you. have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 Styles and 12 sizes “on line” 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 


— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


editing & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
SortFinder Index 
l A composite index of Atari related articles in four popular computer 
periodicals, including the ACE Newsletter. Volume 1 covers April, 1981 
through June, 1983. Volume 2 covers July, 1983 through December, 
1985. Only $6 per printed copy or $11 per disk copy for ACE members. 
Available from: Jim Carr, 2660 S.N. DeArmond, Corvallis, OR 97333. 
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